until* ( ..a pred: ( ..a -- ..b ? ) body: ( ..b -- ..a ) -- ..b ? )

Vocabulary

kernel

Inputs

pred	a quotation with stack effect ( ..a -- ..b ? )
body	a quotation with stack effect ( ..b -- ..a )

Outputs

?

a boolean

Word description

Calls body until pred returns t. The return value of pred is kept on the stack.

Definition

IN: kernel

: until*
    ( ..a pred: ( ..a -- ..b ? ) body: ( ..b -- ..a ) -- ..b ? )
    [ [ dup ] compose ] dip [ drop ] prepose until ; inline