rewrite-sequence ( seq -- )

Vocabulary

locals.rewrite

Inputs

seq

an object

Outputs

None

Definition

USING: kernel make memoize.private sequences ;

IN: locals.rewrite

: rewrite-sequence ( seq -- )
    [ rewrite-elements ] [ length ] [ 0 head ] tri
    [ [nsequence] % ] [ [ like ] curry % ] bi ;