steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io: simplify stream-exemplar.

db4
John Benediktsson 2012-07-16 19:30:10 -07:00
parent cf0a912156
commit b9900248b7
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/io/io.factor
View File

@ -105,16 +105,10 @@ SYMBOL: error-stream
<PRIVATE <PRIVATE
: stream-exemplar ( stream -- exemplar ) : stream-exemplar ( stream -- exemplar )
stream-element-type { stream-element-type +byte+ = B{ } "" ? ; inline
{ +byte+ [ B{ } ] }
{ +character+ [ "" ] }
} case ; inline
: stream-exemplar-growable ( stream -- exemplar ) : stream-exemplar-growable ( stream -- exemplar )
stream-element-type { stream-element-type +byte+ = BV{ } SBUF" " ? ; inline
{ +byte+ [ BV{ } ] }
{ +character+ [ SBUF" " ] }
} case ; inline
: (new-sequence-for-stream) ( n stream -- seq ) : (new-sequence-for-stream) ( n stream -- seq )
stream-exemplar new-sequence ; inline stream-exemplar new-sequence ; inline