]> gitweb.factorcode.org Git - factor.git/commitdiff
shuffle even less
authorAlex Maestas <git@se30.xyz>
Wed, 15 Mar 2023 23:30:07 +0000 (23:30 +0000)
committerJohn Benediktsson <mrjbq7@gmail.com>
Mon, 21 Aug 2023 21:28:15 +0000 (14:28 -0700)
core/generic/hook/hook.factor

index b635c6bea70f6634144fe0b3669e3670c20f4140..f0e4803621322b60df79d439ea4d22de3034e824 100644 (file)
@@ -28,6 +28,5 @@ M: hook-generic effective-method
 M: hook-combination make-consult-quot
     drop          ! combination no longer necessary
     [ drop ] 2dip ! consultation no longer necessary
-    [ "combination" word-prop var>> ] keep ! (quot var word)
-    [ swap ] dip ! (var quot word)
+    [ "combination" word-prop var>> swap ] keep ! (var quot word)
     '[ _ _ call swap [ _ execute ] with-variable ] ;