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
Renamed CREATE to HEADER in prep for true CREATE/DOES>
[forth.jl.git]
/
src
/
forth.jl
diff --git
a/src/forth.jl
b/src/forth.jl
index
ea3fba0
..
64d2d23
100644
(file)
--- a/
src/forth.jl
+++ b/
src/forth.jl
@@
-523,11
+523,12
@@
BASE, BASE_CFA = defNewVar("BASE", 10)
# Constants
# Constants
-defConst("VERSION", 1)
defConst("DOCOL", DOCOL)
defConst("DOCON", DOCON)
defConst("DOVAR", DOVAR)
defConst("DOCOL", DOCOL)
defConst("DOCON", DOCON)
defConst("DOVAR", DOVAR)
+
defConst("DICT", DICT)
defConst("DICT", DICT)
+
F_IMMED = defConst("F_IMMED", 128)
F_HIDDEN = defConst("F_HIDDEN", 256)
F_LENMASK = defConst("F_LENMASK", 127)
F_IMMED = defConst("F_IMMED", 128)
F_HIDDEN = defConst("F_HIDDEN", 256)
F_LENMASK = defConst("F_LENMASK", 127)
@@
-769,7
+770,7
@@
end)
# Compilation
# Compilation
-
CREATE = defPrimWord("CREATE
", () -> begin
+
HEADER = defPrimWord("HEADER
", () -> begin
wordLen = popPS()
wordAddr = popPS()
wordLen = popPS()
wordAddr = popPS()
@@
-811,7
+812,7
@@
HIDE = defWord("HIDE",
COLON = defWord(":",
[WORD,
COLON = defWord(":",
[WORD,
-
CREATE
,
+
HEADER
,
LIT, DOCOL, COMMA,
LATEST_CFA, FETCH, HIDDEN,
RBRAC,
LIT, DOCOL, COMMA,
LATEST_CFA, FETCH, HIDDEN,
RBRAC,