X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=fth%2Fcondcomp.fth;fp=fth%2Fcondcomp.fth;h=762cde89a605ffe45ef1f2d3ff2fab43be96674b;hb=b4ed9d489f7401ee0cd8a6d6e8ce9d97f0dc7833;hp=dc65c6bc76616d1c0da991e9d59a15234645dfbd;hpb=36a42cf251672481da028bb30eea1b16779b5f05;p=debian%2Fpforth

diff --git a/fth/condcomp.fth b/fth/condcomp.fth
index dc65c6b..762cde8 100644
--- a/fth/condcomp.fth
+++ b/fth/condcomp.fth
@@ -46,5 +46,15 @@ anew task-condcomp.fth
 
 : EXISTS? ( <name> -- flag , true if defined )
     bl word find
-    swap drop
+    nip 0<>
+; immediate
+
+: [DEFINED] ( <name> -- flag , true if defined, ANS )
+    bl word find
+    nip 0<>
+; immediate
+
+: [UNDEFINED] ( <name> -- flag , true if not defined, ANS )
+    bl word find
+    nip 0=
 ; immediate