make-return ( quot n lexenv block -- quot )

Vocabulary

smalltalk.compiler.return

Inputs

quot	an object
n	an object
lexenv	an object
block	an object

Outputs

quot

an object

Definition

USING: accessors continuations generalizations kernel
locals.rewrite locals.types sequences ;

IN: smalltalk.compiler.return

:: make-return ( quot n lexenv block -- quot )
    block need-return-continuation? [
        quot clone
        [ lexenv return>> <def> [ ] curry prepend ] change-body
        n [ ncurry callcc1 ] 2curry
    ] [ quot ] if rewrite-closures first ;