From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 21 Feb 2023 01:38:17 +0000 (-0600)
Subject: help: remove in-out
X-Git-Tag: 0.99~542
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=f1f38e374eba2f91cf1d5b91f80a026d8ae4c9c0

help: remove in-out
---

diff --git a/basis/help/help.factor b/basis/help/help.factor
index 21809ec16f..29a372aab1 100644
--- 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