core: push-if -> push-when, refactoring sequence words

[factor.git] / basis / combinators / smart / smart.factor

diff --git a/basis/combinators/smart/smart.factor b/basis/combinators/smart/smart.factor
index 20273006c8155ccb6b154b5ac4a1cf5fb19fba0e..8b597a58b4b76c23e5247862084153fd3b016c4d 100644 (file)
--- a/basis/combinators/smart/smart.factor
+++ b/basis/combinators/smart/smart.factor
@@ -14,7 +14,7 @@ GENERIC: infer-known* ( known -- effect )
     ] [ infer-known* ] if ;
 
 IDENTITY-MEMO: inputs/outputs ( quot -- in out )
-    infer [ in>> ] [ out>> ] bi [ length ] bi@ ;
+    infer [ in>> ] [ out>> ] bi 2length ;
 
 : inputs ( quot -- n ) inputs/outputs drop ; inline