From 8652bc71d3b41510c704f5cbaca375bc319aa44a Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Tue, 24 May 2016 08:30:52 +1200 Subject: [PATCH] Removed debug code. --- src/debug.4th | 41 ----------------------------------------- 1 file changed, 41 deletions(-) delete mode 100644 src/debug.4th diff --git a/src/debug.4th b/src/debug.4th deleted file mode 100644 index 91ea3dd..0000000 --- a/src/debug.4th +++ /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 ; - -- 2.20.1