core: Add the shuffler words but without primitives.

[factor.git] / core / generic / generic.factor

diff --git a/core/generic/generic.factor b/core/generic/generic.factor
index 65fbb300f4833183c9deacc9e5d8a43af35c4205..7571eb66b9f459cb5b08b2195f958fa84abcb5da 100644 (file)
--- a/core/generic/generic.factor
+++ b/core/generic/generic.factor
@@ -191,7 +191,7 @@ GENERIC#: check-combination-effect 1 ( combination effect -- )
 M: object check-combination-effect 2drop ;
 
 : define-generic ( word combination effect -- )
-    [ [ check-combination-effect ] keep swap set-stack-effect ]
+    [ [ check-combination-effect ] keep set-stack-effect ]
     [
         drop
         2dup [ "combination" word-prop ] dip = [ 2drop ] [