crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

rx: reduce size of quotations by 1 cell

Browse source 
FossilOrigin-Name: e094f1fe2d4b038cbec5287ec16b24bebdbbae87b5e914193168f0dc7dec0cab
This commit is contained in:
crc 2017-10-25 17:17:35 +00:00
parent da1673fa74
commit 7cffe2aa7e
3 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
interfaces/image.c
View file

File diff suppressed because one or more lines are too long

12
literate/Rx.md
View file

@ -175,6 +175,10 @@ space savings.
: _packedcall : _packedcall
d 2049 d 2049
i re...... i re......
: _packedjump
d 1793
i re......
~~~ ~~~
## Stack Shufflers ## Stack Shufflers
@ -793,24 +797,22 @@ Begin a quotation with `[` and end it with `]`.
: t-[ : t-[
i lifeliad i lifeliad
r Heap r Heap
d 3 d 2
i lifelili i lifelili
r Compiler r Compiler
d -1 d -1
r Compiler r Compiler
i stlilica i stlilica
r _lit r _packedjump
r comma:opcode r comma:opcode
i lifelili i lifelili
r Heap r Heap
d 0 d 0
r comma r comma
i ca...... i ca......
i lilica..
r _jump
r comma:opcode
i lifere.. i lifere..
r Heap r Heap
: t-] : t-]
i lilica.. i lilica..
r _ret r _ret

BIN
ngaImage
View file

Binary file not shown.