Merge branch 'bags' of git://github.com/littledan/Factor

[factor.git] / basis / compiler / tree / recursive / recursive.factor

diff --git a/basis/compiler/tree/recursive/recursive.factor b/basis/compiler/tree/recursive/recursive.factor
index 0771b978a71fa43880c4a20aa59a9b0e9d0a1f86..0473e3a3a4cc602a6c0e7cec50161cc1a96bf1f2 100644 (file)
--- a/basis/compiler/tree/recursive/recursive.factor
+++ b/basis/compiler/tree/recursive/recursive.factor
@@ -103,7 +103,7 @@ SYMBOL: changed?
         recursive-nesting get pop*
     ] each ;
 
-: while-changing ( quot: ( -- ) -- )
+: while-changing ( ... quot: ( ... -- ... ) -- ... )
     changed? off
     [ call ] [ changed? get [ while-changing ] [ drop ] if ] bi ;
     inline recursive