effects: removing split-shuffle.

2011-10-02 09:26:40 -07:00 · 2011-10-02 09:26:40 -07:00 · 2a234bec02
parent 0fb43fb864
commit 2a234bec02
1 changed files with 0 additions and 3 deletions
--- 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 ;