core: Add the shuffler words but without primitives.

[factor.git] / extra / pair-methods / pair-methods.factor

diff --git a/extra/pair-methods/pair-methods.factor b/extra/pair-methods/pair-methods.factor
index 523ff3a57a6af1ed26688f203e9b1acd656319d4..4bc26e347720272903b8f9808366218e38eb800e 100644 (file)
--- a/extra/pair-methods/pair-methods.factor
+++ b/extra/pair-methods/pair-methods.factor
@@ -33,7 +33,7 @@ ERROR: no-pair-method a b generic ;
     dup pair-generic-definition define ;
 
 : define-pair-generic ( word effect -- )
-    [ swap set-stack-effect ]
+    [ set-stack-effect ]
     [ drop H{ } clone "pair-generic-methods" set-word-prop ]
     [ drop make-pair-generic ] 2tri ;