move if-zero etc to math, remove 1-/1+ from math

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

diff --git a/basis/compiler/tree/recursive/recursive-tests.factor b/basis/compiler/tree/recursive/recursive-tests.factor
index a1cbf15438e2d5ebe0e6ab80c76f166c2634614d..4c4220f238c5aee623ab57c42225138ecc64e685 100644 (file)
--- a/basis/compiler/tree/recursive/recursive-tests.factor
+++ b/basis/compiler/tree/recursive/recursive-tests.factor
@@ -53,7 +53,7 @@ IN: compiler.tree.recursive.tests
 ] unit-test
 
 : loop-test-2 ( a b -- a' )
-    dup [ 1+ loop-test-2 1 - ] [ drop ] if ; inline recursive
+    dup [ 1 + loop-test-2 1 - ] [ drop ] if ; inline recursive
 
 [ t ] [
     [ loop-test-2 ] build-tree analyze-recursive