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:
cf53a68
)
Typo fixes.
author
Tim Vaughan
<tgvaughan@gmail.com>
Fri, 22 Apr 2016 07:09:20 +0000
(19:09 +1200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Fri, 22 Apr 2016 07:09:20 +0000
(19:09 +1200)
src/forth.jl
patch
|
blob
|
history
diff --git
a/src/forth.jl
b/src/forth.jl
index
101cca8
..
5978fb1
100644
(file)
--- a/
src/forth.jl
+++ b/
src/forth.jl
@@
-687,17
+687,17
@@
end)
LBRAC = defPrim("[", () -> begin
mem[STATE] = 0
return mem[NEXT]
LBRAC = defPrim("[", () -> begin
mem[STATE] = 0
return mem[NEXT]
-end, flags=F_IMMED
IATE
)
+end, flags=F_IMMED)
RBRAC = defPrim("]", () -> begin
mem[STATE] = 1
return mem[NEXT]
RBRAC = defPrim("]", () -> begin
mem[STATE] = 1
return mem[NEXT]
-end, flags=F_IMMED
IATE
)
+end, flags=F_IMMED)
HIDDEN = defPrim("HIDDEN", () -> begin
addr = popPS() + 1
mem[addr] = mem[addr] $ F_HIDDEN
HIDDEN = defPrim("HIDDEN", () -> begin
addr = popPS() + 1
mem[addr] = mem[addr] $ F_HIDDEN
- reurn mem[NEXT]
+ re
t
urn mem[NEXT]
end)
HIDE = defWord("HIDE",
end)
HIDE = defWord("HIDE",
@@
-718,13
+718,13
@@
SEMICOLON = defWord(";",
[LIT, EXIT, COMMA,
LATEST, FETCH, HIDDEN,
LBRAC,
[LIT, EXIT, COMMA,
LATEST, FETCH, HIDDEN,
LBRAC,
- EXIT], flags=F_IMMED
IATE
)
+ EXIT], flags=F_IMMED)
IMMEDIATE = defPrim("IMMEDIATE", () -> begin
lenAndFlagsAddr = mem[LATEST] + 1
IMMEDIATE = defPrim("IMMEDIATE", () -> begin
lenAndFlagsAddr = mem[LATEST] + 1
- mem[lenAndFlagsAddr] = mem[lenAndFlagsAddr] $ F_IMMED
IATE
+ mem[lenAndFlagsAddr] = mem[lenAndFlagsAddr] $ F_IMMED
return mem[NEXT]
return mem[NEXT]
-end, flags=F_IMMED
IATE
)
+end, flags=F_IMMED)
TICK = defWord("'", [WORD, FIND, TOCFA, EXIT])
TICK = defWord("'", [WORD, FIND, TOCFA, EXIT])
@@
-766,7
+766,7
@@
function dump(startAddr::Int64; count::Int64 = 100, cellsPerLine::Int64 = 10)
print("\t$(mem[addr]) ")
print("\t$(mem[addr]) ")
- if (mem[addr]>=32 && mem[addr]<1
76
)
+ if (mem[addr]>=32 && mem[addr]<1
28
)
chars[i%cellsPerLine + 1] = Char(mem[addr])
else
chars[i%cellsPerLine + 1] = '.'
chars[i%cellsPerLine + 1] = Char(mem[addr])
else
chars[i%cellsPerLine + 1] = '.'