From b9900248b7f8b4da424054c54e70aedb3dfd65a1 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 16 Jul 2012 19:30:10 -0700
Subject: [PATCH] io: simplify stream-exemplar.

---
 core/io/io.factor | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/core/io/io.factor b/core/io/io.factor
index d0687e500d..67377dd2c2 100644
--- 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