Vocabulary
kernel

Inputs
preda quotation with stack effect ( ..a -- ..b ? )
bodya quotation with stack effect ( ..b -- ..a )


Outputs
None

Word description
Calls body until pred returns t.

Definition

: until
( ..a pred: ( ..a -- ..b ? ) body: ( ..b -- ..a ) -- ..b )
[ [ not ] compose ] dip while ; inline