factor: use new words

[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 ce69216cfc6757a32f9e819911176844e9045d6a..ba029034e70462f5e9866e581071df29031082a2 100644 (file)
--- a/basis/compiler/tree/recursive/recursive-tests.factor
+++ b/basis/compiler/tree/recursive/recursive-tests.factor
@@ -51,7 +51,7 @@ IN: compiler.tree.recursive.tests
 
 { t } [
     [ [ loop-test-1 ] each ] build-tree analyze-recursive
-    \ (each-integer) label-is-loop?
+    \ each-integer-from label-is-loop?
 ] unit-test
 
 : loop-test-2 ( a b -- a' )
@@ -175,7 +175,7 @@ DEFER: a''
 { t } [
     [ 10 [ [ drop ] each-integer ] loop-in-non-loop ]
     build-tree analyze-recursive
-    \ (each-integer) label-is-loop?
+    \ each-integer-from label-is-loop?
 ] unit-test
 
 DEFER: a'''