(tail-calls) ( tail? seq -- seq' )

Vocabulary

compiler.tree.recursive.private

Inputs

tail?	an object
seq	an object

Outputs

seq'

an object

Definition

USING: kernel sequences ;

IN: compiler.tree.recursive.private

: (tail-calls) ( tail? seq -- seq' )
    reverse [ swap [ and ] keep ] map nip reverse ;