unclip-temporaries ( statements -- temporaries statements' )

Vocabulary

smalltalk.ast

Inputs

statements

an object

Outputs

temporaries	an object
statements'	an object

Definition

USING: accessors combinators kernel sequences ;

IN: smalltalk.ast

: unclip-temporaries
    ( statements -- temporaries statements' )
    {
        { [ dup empty? ] [ { } ] }
        { [ dup first ast-local-variables? not ] [ { } ] }
        [ unclip names>> ]
    } cond swap ;