From 5e0a2eef869f6df741cfca25ccc01eaba6b14ba2 Mon Sep 17 00:00:00 2001
From: mgcaret <mgcaret@users.noreply.github.com>
Date: Sun, 5 Jan 2020 17:12:08 -0800
Subject: [PATCH] Fix problem with ['] discovered in unit tests

---
 asm/forth-dictionary.s | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/asm/forth-dictionary.s b/asm/forth-dictionary.s
index 4d79b28..5ea148f 100644
--- 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