Fix problem with ['] discovered in unit tests

2020-01-05 17:12:08 -08:00 · 2020-01-05 17:12:08 -08:00 · 5e0a2eef86
parent b626a7a790
commit 5e0a2eef86
1 changed files with 4 additions and 1 deletions
--- a/asm/forth-dictionary.s
+++ b/asm/forth-dictionary.s
@ -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