while ( ..a pred: ( ..a -- ..b ? ) body: ( ..b -- ..a ) -- ..b ) (original) (raw)
while ( ..a pred: ( ..a -- ..b ? ) body: ( ..b -- ..a ) -- ..b )
Factor handbook » The language » Combinators » Looping combinators
Next: | 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
None
Word description
Calls body until pred returns f.
Definition
: while
( ..a pred: ( ..a -- ..b ? ) body: ( ..b -- ..a ) -- ..b )
swap do compose [ loop ] curry when ; inline