help: remove in-out

diff --git a/basis/help/help.factor b/basis/help/help.factor
index 21809ec16f9bab83deee8304d1bcd4e6f2f492aa..29a372aab13896aac877629e371fc64f0bb6b69c 100644 (file)
--- a/basis/help/help.factor
+++ b/basis/help/help.factor
@@ -14,7 +14,7 @@ GENERIC: word-help* ( word -- content )
 : inputs-and-outputs ( content word -- content' word )
    over [ dup array? [ { $values } head? ] [ drop f ] if ] find drop [
         '[ _ cut unclip rest ] dip [
-            stack-effect in-out
+            stack-effect [ in>> ] [ out>> ] bi
             [ [ dup pair? [ first ] when ] map ] bi@
             [ '[ ?first _ member? ] filter ] bi-curry@
             \ $inputs \ $outputs
@@ -37,7 +37,7 @@ PRIVATE>
     inputs-and-outputs fix-shuffle drop ;
 
 : effect-help ( effect -- content )
-    in-out [
+    [ in>> ] [ out>> ] bi [
         [
             dup pair? [
                 first2 dup effect? [ \ $quotation swap 2array ] when