From 7bf1173bc3cd78067cb0926419acb9f99a0b0081 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 14 Mar 2013 19:23:10 -0700
Subject: [PATCH] io: adding stream-bl.

---
 core/io/io.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/core/io/io.factor b/core/io/io.factor
index 83414ec551..927139c267 100644
--- a/core/io/io.factor
+++ b/core/io/io.factor
@@ -99,7 +99,9 @@ SYMBOL: error-stream
 
 : print ( str -- ) output-stream get stream-print ; inline
 
-: bl ( -- ) " " write ;
+: stream-bl ( stream -- ) " " swap stream-write ; inline
+
+: bl ( -- ) output-stream get stream-bl ;
 
 : each-morsel ( ..a handler: ( ..a data -- ..b ) reader: ( ..b -- ..a data ) -- ..a )
     [ dup ] compose swap while drop ; inline