rx: reduce size of quotations by 1 cell

FossilOrigin-Name: e094f1fe2d4b038cbec5287ec16b24bebdbbae87b5e914193168f0dc7dec0cab
2017-10-25 17:17:35 +00:00 · 2017-10-25 17:17:35 +00:00 · 7cffe2aa7e
commit 7cffe2aa7e
parent da1673fa74
3 changed files with 9 additions and 7 deletions
--- a/interfaces/image.c
+++ b/interfaces/image.c
--- a/literate/Rx.md
+++ b/literate/Rx.md
@ -175,6 +175,10 @@ space savings.
 : _packedcall
 d 2049
 i re......
+
+: _packedjump
+d 1793
+i re......
 ~~~

 ## Stack Shufflers
@ -793,24 +797,22 @@ Begin a quotation with `[` and end it with `]`.
 : t-[
 i lifeliad
 r Heap
-d 3
+d 2
 i lifelili
 r Compiler
 d -1
 r Compiler
 i stlilica
-r _lit
+r _packedjump
 r comma:opcode
 i lifelili
 r Heap
 d 0
 r comma
 i ca......
-i lilica..
-r _jump
-r comma:opcode
 i lifere..
 r Heap
+
 : t-]
 i lilica..
 r _ret
--- a/BIN
+++ b/BIN