if-has-phis ( ..a bb quot: ( ..a bb -- ..b ) -- ..b )

Vocabulary

compiler.cfg.utilities

Inputs

bb	an object
quot	a quotation with stack effect ( ..a bb -- ..b )

Outputs

None

Definition

USING: kernel ;

IN: compiler.cfg.utilities

: if-has-phis ( ..a bb quot: ( ..a bb -- ..b ) -- ..b )
    [ dup has-phis? ] dip [ drop ] if ; inline