?grow-storage ( -- )

Vocabulary

icfp.2006

Inputs

None

Outputs

None

Definition

USING: kernel namespaces sequences ;

IN: icfp.2006

: ?grow-storage ( -- )
    open-arrays get dup empty?
    [ [ arrays get length ] dip push ] [ drop ] if ;