Fix nodes>quot
parent
26f309d2ae
commit
d970a632bb
|
@ -86,7 +86,7 @@ M: #shuffle node>quot
|
|||
{
|
||||
[ dup [ in-r>> empty? ] [ out-r>> empty? ] bi and ]
|
||||
[
|
||||
dup shuffle-effect pretty-shuffle
|
||||
shuffle-effect dup pretty-shuffle
|
||||
[ % ] [ shuffle-node boa , ] ?if
|
||||
]
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue