factor: put inline on same line as ; for experimentation

[factor.git] / basis / stack-checker / stack-checker-tests.factor

diff --git a/basis/stack-checker/stack-checker-tests.factor b/basis/stack-checker/stack-checker-tests.factor
index 6c31370e549ab3ee78c83dc4f9c450fc7f857b48..5426b773b24ff0c12e305e15d3f5fbea08e02063 100644 (file)
--- a/basis/stack-checker/stack-checker-tests.factor
+++ b/basis/stack-checker/stack-checker-tests.factor
@@ -346,8 +346,9 @@ FORGET: bad-recursion-3
 { 2 0 } [ drop f f [ 2drop "A" throw ] [ ] if 2drop ] must-infer-as
 
 : unbalanced-retain-usage ( a b -- )
-    dup 10 < [ 2drop 5 1 + unbalanced-retain-usage ] [ 2drop ] if ;
-    inline recursive
+    dup 10 <
+    [ 2drop 5 1 + unbalanced-retain-usage ]
+    [ 2drop ] if ; inline recursive
 
 [ [ unbalanced-retain-usage ] infer ] [ inference-error? ] must-fail-with