The Lambda Lab
/
projects
/
forth.jl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
87b17b0
)
Removed debug code.
author
Tim Vaughan
<tgvaughan@gmail.com>
Mon, 23 May 2016 20:30:52 +0000
(08:30 +1200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Mon, 23 May 2016 20:30:52 +0000
(08:30 +1200)
src/debug.4th
[deleted file]
patch
|
blob
|
history
diff --git
a/src/debug.4th
b/src/debug.4th
deleted file mode 100644
(file)
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 ;
-