From 2cf147357ce578c3bc589b894930c71d709022e1 Mon Sep 17 00:00:00 2001 From: Irene Knapp Date: Fri, 15 May 2026 05:15:39 -0700 Subject: 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 --- transform.e | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'transform.e') 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 -- cgit 1.4.1