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:
81df430
)
Now reads lib1 fine, but doesn't continue to lib2.
author
Tim Vaughan
<tgvaughan@gmail.com>
Mon, 10 Oct 2016 11:01:37 +0000
(
00:01
+1300)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Mon, 10 Oct 2016 11:01:37 +0000
(
00:01
+1300)
src/forth.jl
patch
|
blob
|
history
diff --git
a/src/forth.jl
b/src/forth.jl
index
4013917
..
58f6940
100644
(file)
--- a/
src/forth.jl
+++ b/
src/forth.jl
@@
-1245,6
+1245,7
@@
INCLUDED_CFA = defWord("INCLUDED",
SOURCE_ID_CFA, FETCH_CFA, QUERY_FILE_CFA, # Read line from file
INTERPRET_CFA, # Interpret line
EOF_FLAG_CFA, FETCH_CFA, ZBRANCH_CFA, -7, # Loop if not EOF
SOURCE_ID_CFA, FETCH_CFA, QUERY_FILE_CFA, # Read line from file
INTERPRET_CFA, # Interpret line
EOF_FLAG_CFA, FETCH_CFA, ZBRANCH_CFA, -7, # Loop if not EOF
+ SOURCE_ID_CFA, FETCH_CFA,
CLOSE_FILE_CFA, DROP_CFA, # Close file
SOURCE_ID_CFA, STORE_CFA, # Restore input source
EXIT_CFA])
CLOSE_FILE_CFA, DROP_CFA, # Close file
SOURCE_ID_CFA, STORE_CFA, # Restore input source
EXIT_CFA])
@@
-1305,8
+1306,8
@@
function run(;initialize=true)
jmp = mem[EXIT_CFA]
while jmp != 0
try
jmp = mem[EXIT_CFA]
while jmp != 0
try
-
#
print("Entering prim $(getPrimName(jmp)), PS: ")
-
#
printPS()
+ print("Entering prim $(getPrimName(jmp)), PS: ")
+ printPS()
jmp = callPrim(jmp)
jmp = callPrim(jmp)