factor: remove in-out, it's just in>> out>>

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

diff --git a/basis/combinators/smart/smart.factor b/basis/combinators/smart/smart.factor
index 6bbdbc36cb5fb1af6f287f4c5e5374f3fe1fbdfa..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 2length ;
+    infer [ in>> ] [ out>> ] bi 2length ;
 
 : inputs ( quot -- n ) inputs/outputs drop ; inline
 
@@ -24,7 +24,7 @@ IDENTITY-MEMO: inputs/outputs ( quot -- in out )
     peek-d
     infer-known [
         [ pop-d 1array #drop, ]
-        [ in-out [ length apply-object ] bi@ ] bi*
+        [ [ in>> ] [ out>> ] bi [ length apply-object ] bi@ ] bi*
     ] [
         \ inputs/outputs dup required-stack-effect apply-word/effect
         pop-d pop-d swap