effects: removing split-shuffle.
parent
0fb43fb864
commit
2a234bec02
|
@ -100,9 +100,6 @@ M: effect clone
|
||||||
: stack-height ( word -- n )
|
: stack-height ( word -- n )
|
||||||
stack-effect effect-height ;
|
stack-effect effect-height ;
|
||||||
|
|
||||||
: split-shuffle ( stack shuffle -- stack1 stack2 )
|
|
||||||
in>> length cut* ;
|
|
||||||
|
|
||||||
: shuffle-mapping ( effect -- mapping )
|
: shuffle-mapping ( effect -- mapping )
|
||||||
[ out>> ] [ in>> ] bi [ index ] curry map ;
|
[ out>> ] [ in>> ] bi [ index ] curry map ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue