io: change stream-bl to use write1.

db4
John Benediktsson 2014-06-04 09:13:21 -07:00
parent 5f1c6151dc
commit 7082246447
1 changed files with 1 additions and 1 deletions

View File

@ -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 ;