io: simplify stream-exemplar.

2012-07-16 19:30:10 -07:00 · 2012-07-16 19:30:10 -07:00 · b9900248b7
parent cf0a912156
commit b9900248b7
1 changed files with 2 additions and 8 deletions
--- a/core/io/io.factor
+++ b/core/io/io.factor
@ -105,16 +105,10 @@ SYMBOL: error-stream
 <PRIVATE

 : stream-exemplar ( stream -- exemplar )
-    stream-element-type {
-        { +byte+ [ B{ } ] }
-        { +character+ [ "" ] }
-    } case ; inline
+    stream-element-type +byte+ = B{ } "" ? ; inline

 : stream-exemplar-growable ( stream -- exemplar )
-    stream-element-type {
-        { +byte+ [ BV{ } ] }
-        { +character+ [ SBUF" " ] }
-    } case ; inline
+    stream-element-type +byte+ = BV{ } SBUF" " ? ; inline

 : (new-sequence-for-stream) ( n stream -- seq )
    stream-exemplar new-sequence ; inline