Hello Matthias & all,
[undefined] didn't work for me so I replaced it with the following
definition. I guess it's something with "immediate".
Thanks, Enoch.
svn diff lib/forth200x/defined.frt
Index: lib/forth200x/defined.frt
===================================================================
--- lib/forth200x/defined.frt (revision 1379)
+++ lib/forth200x/defined.frt (working copy)
@@ -1,4 +1,2 @@
-
-\ from the proposal
-: [defined] parse-name find-name dup if swap drop then ; immediate
-: [undefined] [defined] 0= ; immediate
+: [defined] parse-name find-name if drop -1 else 0 then ; immediate
+: [undefined] parse-name find-name if drop 0 else -1 then ; immediate
|
