6502/of816
1
0
Fork 0
mirror of https://github.com/mgcaret/of816.git synced 2025-02-06 12:30:49 +00:00
Code Issues Projects Releases Wiki Activity

Fix problem with ['] discovered in unit tests

Browse Source
This commit is contained in:
mgcaret 2020-01-05 17:12:08 -08:00
parent b626a7a790
commit 5e0a2eef86
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
asm/forth-dictionary.s
View File

@ -4778,7 +4778,10 @@ eword
; H: ( [old-name<>] -- xt ) immediately parse old-name in input stream, return xt of word
dword CPARSEFIND,"[']",F_IMMED
bra PARSEFIND::code
ENTER
.dword PARSEFIND
.dword LITERAL
EXIT
eword
; H: ( xt -- a-addr) return body of word at xt, if unable then throw exception -31