From: Tim Vaughan Date: Mon, 23 May 2016 20:30:52 +0000 (+1200) Subject: Removed debug code. X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=8652bc71d3b41510c704f5cbaca375bc319aa44a;p=forth.jl.git Removed debug code. --- 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 ; -