?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 dup effect? [ drop f ] unless ] [ drop f ] if ;