logic.factor: [ quot call( -- ) ] --> quot

diff --git a/extra/logic/logic.factor b/extra/logic/logic.factor
index 2c347a7d695ce4094530f7a8c76a5dd8ae8a9509..7e96ebb02de5f8ad76dc7517b2e3adc551505f76 100644 (file)
--- a/extra/logic/logic.factor
+++ b/extra/logic/logic.factor
@@ -222,7 +222,7 @@ DEFER: unify*
     ] [
         body unclip :> ( rest-goals! first-goal! )
         first-goal !! = [  ! cut
-            rest-goals env cut [ quot call( -- ) ] resolve-body
+            rest-goals env cut quot resolve-body
             t cut set-info
         ] [
             first-goal callable? [
@@ -243,11 +243,11 @@ DEFER: unify*
                         first-goal env d-head d-env trail d-env unify* [
                             d-body callable? [
                                 d-env trail <callback-env> d-body call( cb-env -- ? ) [
-                                    rest-goals env cut [ quot call( -- ) ] resolve-body
+                                    rest-goals env cut quot resolve-body
                                 ] when
                             ] [
                                 d-body d-env d-cut [
-                                    rest-goals env cut [ quot call( -- ) ] resolve-body
+                                    rest-goals env cut quot resolve-body
                                     cut cut? d-cut set-info-if-f
                                 ] resolve-body
                             ] if