The Lambda Lab
/
projects
/
forth.jl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Implemented \ comments as a word, implemented [CHAR]
[forth.jl.git]
/
src
/
forth.jl
diff --git
a/src/forth.jl
b/src/forth.jl
index
e571758
..
b1d782c
100644
(file)
--- a/
src/forth.jl
+++ b/
src/forth.jl
@@
-626,24
+626,10
@@
WORD = defPrimWord("WORD", () -> begin
eof_char = Char(EOF)
c = eof_char
eof_char = Char(EOF)
c = eof_char
- skip_to_end = false
while true
while true
-
callPrim(mem[KEY])
c = Char(popPS())
callPrim(mem[KEY])
c = Char(popPS())
- if c == '\\'
- skip_to_end = true
- continue
- end
-
- if skip_to_end
- if c == '\n' || c == eof_char
- skip_to_end = false
- end
- continue
- end
-
if c == ' ' || c == '\t'
continue
end
if c == ' ' || c == '\t'
continue
end
@@
-852,7
+838,7
@@
end, name="DOCOL")
defConst("DODOES", DODOES)
FROMDOES_PAREN = defWord("(DOES>)",
defConst("DODOES", DODOES)
FROMDOES_PAREN = defWord("(DOES>)",
- [DODOES, LAST, FETCH, TOCFA, STORE, EXIT])
+ [DODOES, LA
TE
ST, FETCH, TOCFA, STORE, EXIT])
FROMDOES = defWord("DOES>",
[BTICK, FROMDOES_PAREN, COMMA, BTICK, EXIT, COMMA,
FROMDOES = defWord("DOES>",
[BTICK, FROMDOES_PAREN, COMMA, BTICK, EXIT, COMMA,