diff options
Diffstat (limited to 'transform.e')
| -rw-r--r-- | transform.e | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/transform.e b/transform.e index 83eea8a..7226ff1 100644 --- a/transform.e +++ b/transform.e @@ -212,17 +212,17 @@ { main-input-buffer pop-input-buffer exit } if } forever ; -1024 allocate dup -." compilation output buffer" newline dup hexdump -transform -: za ." ZA" 12 13 - . ; -: ' word value@ find dropstring-with-result - interpreter-flags @ 1 & { literal } if ; make-immediate -~ ' za . newline -pyrzqxgl -." back back back " here @ .hex64 newline -~ ." stack after " stackhex -~ 2dup swap hexdump-between -~ : piz ." PIZ" ' za . newline ; piz -bye +~ 1024 allocate dup +~ ." compilation output buffer" newline dup hexdump +~ transform +~ : za ." ZA" 12 13 - . ; +~ : ' word value@ find dropstring-with-result +~ interpreter-flags @ 1 & { literal } if ; make-immediate +~ ~ ' za . newline +~ pyrzqxgl +~ ." back back back " here @ .hex64 newline +~ ~ ." stack after " stackhex +~ ~ 2dup swap hexdump-between +~ ~ : piz ." PIZ" ' za . newline ; piz +~ bye |