Removed debug code.
authorTim Vaughan <tgvaughan@gmail.com>
Mon, 23 May 2016 20:30:52 +0000 (08:30 +1200)
committerTim Vaughan <tgvaughan@gmail.com>
Mon, 23 May 2016 20:30:52 +0000 (08:30 +1200)
src/debug.4th [deleted file]

diff --git a/src/debug.4th b/src/debug.4th
deleted file mode 100644 (file)
index 91ea3dd..0000000
+++ /dev/null
@@ -1,41 +0,0 @@
-: CFA>
-        LATEST @
-        BEGIN
-                ?DUP
-        WHILE
-                2DUP SWAP
-                < IF           
-                        NIP  
-                        EXIT
-                THEN
-                @ 
-        REPEAT
-        DROP
-        0
-;
-
-: DECIMAL  10 BASE ! ;
-: HEX  16 BASE ! ;
-
-: ID.
-        1+
-        DUP @
-        F_LENMASK AND 
-
-        BEGIN
-                DUP 0>
-        WHILE
-                SWAP 1+
-                DUP @ EMIT
-                SWAP 1-
-        REPEAT
-        2DROP
-;
-
-: name cfa> id. ;
-
-: [trace] immediate
-    trace ;
-
-\ : test 20 0 [trace] do 42 emit [trace] loop ;
-