enough? ( stack word -- ? )

Vocabulary

inverse

Inputs

stack	an object
word	an object

Outputs

?

an object

Definition

USING: combinators.smart continuations kernel math quotations
sequences words ;

IN: inverse

: enough? ( stack word -- ? )
    dup deferred?
    [ 2drop f ] [
        [ [ length ] [ 1quotation inputs ] bi* >= ] [ 3drop f ]
        recover
    ] if ;