TUPLE: pipe in out ;
-M: pipe dispose ( pipe -- )
+M: pipe dispose
[
[ in>> &dispose drop ]
[ out>> &dispose drop ] bi
GENERIC: <pipes> ( obj -- pipes )
-M: integer <pipes> ( n -- pipes )
+M: integer <pipes>
[
[ (pipe) |dispose ] replicate
T{ pipe } [ prefix ] [ suffix ] bi