[Amforth] lib/forth200x/defined.frt

[Enoch <ix...@ho...>]

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