logic: use not.

diff --git a/extra/logic/logic.factor b/extra/logic/logic.factor
index 2204c093cf8f9e158e1ea9ff38be03b7e214d1aa..4719f0568577a14449b827de7fc9a00584782502 100644 (file)
--- a/extra/logic/logic.factor
+++ b/extra/logic/logic.factor
@@ -357,7 +357,7 @@ M:: resolver-gen next ( resolver -- yield? )
             { s-end: [
                   t resolver return?<< ] }
         } case
-        resolver [ yield?>> ] [ return?>> ] bi or [ f ] [ t ] if
+        resolver [ yield?>> ] [ return?>> ] bi or not
     ] loop
     resolver yield?>> ;