GH-13 Fix ' and ['] so they throw -13 for undefined word.

SirWumpus · Aug 7, 2024 · 5f5bec8 · 5f5bec8
1 parent 6858dc8
commit 5f5bec8
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/post4.p4 b/src/post4.p4
@@ -708,6 +708,14 @@ DEFER _fsp!
 	['] COMPILE, COMPILE,
 ; IMMEDIATE compile-only
 
+\ ( -- xt )
+\ Redefine now that we can THROW for an undefined word.
+: ' ' DUP 0= -13 AND THROW ;
+
+\ (C: <spaces>name -- ) (S: -- xt )
+\ Redefine now that ' can THROW on undefined word.
+: ['] LIT [ ' LIT COMPILE, ] COMPILE, ' COMPILE, ; IMMEDIATE compile-only
+
 \ ...  [CHAR]  ...
 \
 \  (C: <spaces>name -- ) \ (S: -- char )