(compile-sequence) ( lexenv asts -- quot )

Vocabulary

smalltalk.compiler

Inputs

lexenv	an object
asts	an object

Outputs

quot

an object

Definition

USING: kernel sequences smalltalk.ast ;

IN: smalltalk.compiler

: (compile-sequence) ( lexenv asts -- quot )
    [ drop [ nil ] ] [ [ compile-ast ] with map [ drop ] join ]
    if-empty ;