(map-literals) ( obj quot: ( obj -- obj' ) -- seq )

Vocabulary

modern.out

Inputs

obj	an object
quot	a quotation with stack effect ( obj -- obj' )

Outputs

seq

an object

Definition

USING: arrays kernel sequences ;

IN: modern.out

: (map-literals) ( obj quot: ( obj -- obj' ) -- seq )
    over [ array? ] any?
    [ [ call drop ] [ map-literals ] 2bi ]
    [ over array? [ map-literals ] [ call ] if ] if ; inline
    recursive