: read-lines ( -- seq )
input-stream get stream-lines ; inline
-ALIAS: lines read-lines deprecated
-
CONSTANT: each-block-size 65536
: (each-stream-block-slice) ( ... stream quot: ( ... block-slice -- ... ) block-size -- ... )
: read-contents ( -- seq )
input-stream get stream-contents ; inline
-ALIAS: contents read-contents deprecated
-
: stream-copy* ( in out -- )
[ stream-write ] curry each-stream-block ; inline
: [0..b) ( b -- range ) 0 swap [a..b) ; inline
: [1..b) ( b -- range ) 1 swap [a..b) ; inline
-
-! backwards compatibility for new syntax
-ALIAS: [a,b] [a..b] deprecated
-ALIAS: (a,b] (a..b] deprecated
-ALIAS: [a,b) [a..b) deprecated
-ALIAS: (a,b) (a..b) deprecated
-ALIAS: [0,b] [0..b] deprecated
-ALIAS: [1,b] [1..b] deprecated
-ALIAS: [0,b) [0..b) deprecated
-ALIAS: [1,b) [1..b) deprecated