[ ] collector [ each-stream-line ] dip { } like
] with-disposal ; inline
-: lines ( -- seq )
+! Note: was `lines` before .99
+: read-lines ( -- seq )
input-stream get stream-lines ; inline
CONSTANT: each-block-size 65536
[ stream-exemplar produce-as nip ] bi
] with-disposal ; inline
-: contents ( -- seq )
+: read-contents ( -- seq )
input-stream get stream-contents ; inline
+ALIAS: contents read-contents
+
: stream-copy* ( in out -- )
[ stream-write ] curry each-stream-block ; inline