shallow-spread>quot ( seq -- quot )

Vocabulary

combinators

Inputs

seq

an object

Outputs

quot

an object

Definition

USING: kernel sequences ;

IN: combinators

: shallow-spread>quot ( seq -- quot )
    [ ] [ [ dup empty? [ [ dip ] curry ] unless ] dip append ]
    reduce ;