summary refs log tree commit diff
path: root/output.e
diff options
context:
space:
mode:
Diffstat (limited to 'output.e')
-rw-r--r--output.e49
1 files changed, 25 insertions, 24 deletions
diff --git a/output.e b/output.e
index fe777b8..80f1577 100644
--- a/output.e
+++ b/output.e
@@ -191,28 +191,29 @@
 ~ Debugging tools
 ~ ~~~~~~~~~~~~~~~
 
-~ ~ TODO this is a horrible, horrible hack
-: s0-kludge 0x1000010008 ;
-
-~ TODO replace these with the implementations that use proper flow-control
-: stack
-  s0-kludge @ 8 -
-
-  dup value@ 8 + !=
-  0branch [ 19 8 * , ]
-  dup s0-kludge @ 8 - != 0branch [ 2 8 * , ] space dup @ . 8 -
-  branch [ -25 8 * , ]
-
-  drop newline ;
-
-
-: stackhex
-  s0-kludge @ 8 -
-
-  dup value@ 8 + !=
-  0branch [ 19 8 * , ]
-  dup s0-kludge @ 8 - != 0branch [ 2 8 * , ] space dup @ .hex64 8 -
-  branch [ -25 8 * , ]
-
-  drop newline ;
+~ TODO remove these altogether, they're in dynamic.e now
+~ ~ ~ TODO this is a horrible, horrible hack
+~ : s0-kludge 0x1000010008 ;
+~
+~ ~ TODO replace these with the implementations that use proper flow-control
+~ : stack
+~   s0-kludge @ 8 -
+~
+~   dup value@ 8 + !=
+~   0branch [ 19 8 * , ]
+~   dup s0-kludge @ 8 - != 0branch [ 2 8 * , ] space dup @ . 8 -
+~   branch [ -25 8 * , ]
+~
+~   drop newline ;
+~
+~
+~ : stackhex
+~   s0-kludge @ 8 -
+~
+~   dup value@ 8 + !=
+~   0branch [ 19 8 * , ]
+~   dup s0-kludge @ 8 - != 0branch [ 2 8 * , ] space dup @ .hex64 8 -
+~   branch [ -25 8 * , ]
+~
+~   drop newline ;