factor: put inline on same line as ; for experimentation

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

diff --git a/basis/compiler/tree/combinators/combinators.factor b/basis/compiler/tree/combinators/combinators.factor
index d41796678c698efbf9fa946f749e9b50ee197459..7d709fd02d7fabf5ba7bcf2b935404a43a24c2af 100644 (file)
--- a/basis/compiler/tree/combinators/combinators.factor
+++ b/basis/compiler/tree/combinators/combinators.factor
@@ -53,5 +53,5 @@ IN: compiler.tree.combinators
 : until-fixed-point ( ... #recursive quot: ( ... node -- ... ) -- ... )
     over label>> t >>fixed-point drop
     [ with-scope ] 2keep
-    over label>> fixed-point>> [ 2drop ] [ until-fixed-point ] if ;
-    inline recursive
+    over label>> fixed-point>>
+    [ 2drop ] [ until-fixed-point ] if ; inline recursive