From 708224644775f8777b273118b810db5463d5d47c Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 4 Jun 2014 09:13:21 -0700 Subject: [PATCH] io: change stream-bl to use write1. --- core/io/io.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/io/io.factor b/core/io/io.factor index eb72859c70..5185ea1a28 100644 --- a/core/io/io.factor +++ b/core/io/io.factor @@ -99,7 +99,7 @@ SYMBOL: error-stream : print ( str -- ) output-stream get stream-print ; inline -: stream-bl ( stream -- ) " " swap stream-write ; inline +: stream-bl ( stream -- ) CHAR: \s swap stream-write1 ; inline : bl ( -- ) output-stream get stream-bl ;