6502/of816
1
0
Fork 0
mirror of https://github.com/mgcaret/of816.git synced 2025-08-08 12:25:10 +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
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 ; H: ( [old-name<>] -- xt ) immediately parse old-name in input stream, return xt of word
dword CPARSEFIND,"[']",F_IMMED dword CPARSEFIND,"[']",F_IMMED
bra PARSEFIND::code ENTER
.dword PARSEFIND
.dword LITERAL
EXIT
eword eword
; H: ( xt -- a-addr) return body of word at xt, if unable then throw exception -31 ; H: ( xt -- a-addr) return body of word at xt, if unable then throw exception -31