diff options
| author | Irene Knapp <ireneista@irenes.space> | 2026-05-15 05:15:39 -0700 |
|---|---|---|
| committer | Irene Knapp <ireneista@irenes.space> | 2026-05-15 05:15:39 -0700 |
| commit | 2cf147357ce578c3bc589b894930c71d709022e1 (patch) | |
| tree | f1614ccc11f2223ba3a81ecf043073ac33724fc0 /transform.e | |
| parent | efaa8eeb003c3a36af18bf606d0fe524177e5729 (diff) | |
fix things up so it gets through cold-start
then it crashes on warm-start because warm-start doesn't exist yet Force-Push: yes Change-Id: I9eba481b31d48f9d32c3790f296204c5c8d90938
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 |