pop-inverse

Vocabulary

inverse

Definition

USING: kernel words ;

IN: inverse

PREDICATE: pop-inverse < word "pop-length" word-prop >boolean ;

Methods

USING: combinators inverse kernel quotations sequences words ;

M: pop-inverse inverse
    [ "pop-length" word-prop cut-slice swap >quotation ]
    [ "pop-inverse" word-prop ] bi compose
    ( -- quot ) call-effect ;