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

Vocabulary

help.private

Inputs

content	an object
word	an object

Outputs

content'	an object
word	an object

Definition

USING: arrays effects help.markup kernel sequences ;

IN: help.private

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