Handbook
Glossary
while-changing ( ... quot: ( ... -- ... ) -- ... )
Vocabulary
compiler
.
tree
.
recursive
.
private
Inputs
quot
a
quotation
with stack effect
( ... -- ... )
Outputs
None
Definition
USING:
kernel
namespaces
;
IN:
compiler.tree.recursive.private
:
while-changing
( ... quot: ( ... -- ... ) -- ... )
changed?
off
[
call
]
[
changed?
get
[
while-changing
]
[
drop
]
if
]
bi
;
inline
recursive