From 6e232221879ed96ad90296d7c8f428d326e9369d Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 28 May 2020 09:13:44 -0700
Subject: [PATCH] logic: use not.

---
 extra/logic/logic.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/logic/logic.factor b/extra/logic/logic.factor
index 2204c093cf..4719f05685 100644
--- 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?>> ;