diff --git a/core/effects/effects.factor b/core/effects/effects.factor index 216f50dd8e..12573ad937 100644 --- a/core/effects/effects.factor +++ b/core/effects/effects.factor @@ -100,9 +100,6 @@ M: effect clone : stack-height ( word -- n ) stack-effect effect-height ; -: split-shuffle ( stack shuffle -- stack1 stack2 ) - in>> length cut* ; - : shuffle-mapping ( effect -- mapping ) [ out>> ] [ in>> ] bi [ index ] curry map ;