factor: rename count-by back to count. count* -> percent-of

[factor.git] / basis / compiler / tree / escape-analysis / recursive / recursive.factor

diff --git a/basis/compiler/tree/escape-analysis/recursive/recursive.factor b/basis/compiler/tree/escape-analysis/recursive/recursive.factor
index 3f8746dd4119e827c1d87d5e81de4453ea01f836..8cba6954ad1f1b1bc7ed51bcbcf2cabf16462a8a 100644 (file)
--- a/basis/compiler/tree/escape-analysis/recursive/recursive.factor
+++ b/basis/compiler/tree/escape-analysis/recursive/recursive.factor
@@ -11,7 +11,7 @@ IN: compiler.tree.escape-analysis.recursive
 : congruent? ( alloc1 alloc2 -- ? )
     {
         { [ 2dup [ boolean? ] either? ] [ eq? ] }
-        { [ 2dup 2length @ = not ] [ 2drop f ] }
+        { [ 2dup 2length = not ] [ 2drop f ] }
         [ [ [ allocation ] bi@ congruent? ] 2all? ]
     } cond ;