?quotation-effect ( in -- effect/f )

Vocabulary

stack-checker.backend

Inputs

in

an object

Outputs

effect/f

an object

Definition

USING: arrays effects kernel sequences ;

IN: stack-checker.backend

: ?quotation-effect ( in -- effect/f )
    dup pair? [ second [ effect? ] 1guard ] [ drop f ] if ;