basis: adjust in-out spacing

diff --git a/basis/http/client/client.factor b/basis/http/client/client.factor
index f743d42e7d752e1a5013d6917ba9d821ab5f8781..ce10d8593348f867905e1514daf35e3c074df776 100644 (file)
--- a/basis/http/client/client.factor
+++ b/basis/http/client/client.factor
@@ -223,8 +223,7 @@ SYMBOL: redirects
     request [
         <request-socket> [
             [
-                in-out
-                [ ?https-tunnel ] with-streams*
+                in-out [ ?https-tunnel ] with-streams*
             ]
             [
                 out>>

diff --git a/basis/stack-checker/inlining/inlining.factor b/basis/stack-checker/inlining/inlining.factor
index 291e05c9a554982c6f2a00a17fddf79665bc8910..84936e72b78d9814b3af09f97c9933b44a29d224 100644 (file)
--- a/basis/stack-checker/inlining/inlining.factor
+++ b/basis/stack-checker/inlining/inlining.factor
@@ -126,8 +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 meta-d length pick length [-]
     object <repetition> '[ _ prepend ] bi@
     <effect> ;