(reverse) ( seq -- newseq )

Vocabulary

sequences.extras.private

Inputs

seq

an object

Outputs

newseq

an object

Definition

USING: kernel sequences sequences.private ;

IN: sequences.extras.private

: (reverse) ( seq -- newseq )
    dup [ length ] keep new-sequence [ 0 swap copy-unsafe ] keep
    reverse! ;