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

[factor.git] / basis / stack-checker / inlining / inlining.factor

diff --git a/basis/stack-checker/inlining/inlining.factor b/basis/stack-checker/inlining/inlining.factor
index 84936e72b78d9814b3af09f97c9933b44a29d224..f77dcbb16030cbf027944635b715fb1756734f97 100644 (file)
--- a/basis/stack-checker/inlining/inlining.factor
+++ b/basis/stack-checker/inlining/inlining.factor
@@ -126,7 +126,7 @@ M: declared-effect (undeclared-known) known>> (undeclared-known) ;
     [ check-call-height ] [ check-call-site-stack ] bi ;
 
 : adjust-stack-effect ( effect -- effect' )
-    in-out meta-d length pick length [-]
+    [ in>> ] [ out>> ] bi meta-d length pick length [-]
     object <repetition> '[ _ prepend ] bi@
     <effect> ;