mirror of
https://github.com/mgcaret/of816.git
synced 2024-12-27 19:29:58 +00:00
fix bug in WORDLIST; remove immediacy from COMPILE,
This commit is contained in:
parent
494acab881
commit
955626713b
@ -1303,8 +1303,8 @@ dword COMMA,","
|
|||||||
eword
|
eword
|
||||||
|
|
||||||
; H: ( xt -- ) Compile xt into the dictionary.
|
; H: ( xt -- ) Compile xt into the dictionary.
|
||||||
; immediacy called out in IEEE 1275-1994
|
; immediacy called out in IEEE 1275-1994, but that conflicts with standards and usage
|
||||||
dword COMPILECOMMA,"COMPILE,",F_IMMED
|
dword COMPILECOMMA,"COMPILE,"
|
||||||
bra COMMA::code
|
bra COMMA::code
|
||||||
eword
|
eword
|
||||||
|
|
||||||
@ -6509,7 +6509,6 @@ dword WORDLIST,"WORDLIST"
|
|||||||
ENTER
|
ENTER
|
||||||
ONLIT H_FORTH ; root of all dictionaries
|
ONLIT H_FORTH ; root of all dictionaries
|
||||||
.dword dCREATE_WL
|
.dword dCREATE_WL
|
||||||
.dword 0
|
|
||||||
EXIT
|
EXIT
|
||||||
eword
|
eword
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user