check-broadcast-group ( group -- group )

Vocabulary

delegate.private

Inputs

group

an object

Outputs

group

an object

Definition

USING: accessors delegate effects kernel sequences ;

IN: delegate.private

: check-broadcast-group ( group -- group )
    dup group-words [ first stack-effect out>> empty? ] all?
    [ broadcast-words-must-have-no-outputs ] unless ;