fix-shuffle ( content word -- content' word )


Vocabulary
help.private

Inputs
contentan object
wordan object


Outputs
content'an object
wordan object


Definition
USING: arrays effects help.markup kernel sequences ;

IN: help.private

: fix-shuffle ( content word -- content' word )
over [ { $shuffle $complex-shuffle } member? ] find drop [
[ cut unclip ] curry dip
[ stack-effect 2array 1array glue ] keep
] when* ;