extra: use bl when possible instead of ``" " write``.

diff --git a/extra/euler/b-rep/io/obj/obj.factor b/extra/euler/b-rep/io/obj/obj.factor
index 5914d3b6213b297d15892fd80fe4095c8b9ad382..2a68fb34013caa94ceaec1e12290c5fa4cd24de2 100644 (file)
--- a/extra/euler/b-rep/io/obj/obj.factor
+++ b/extra/euler/b-rep/io/obj/obj.factor
@@ -7,11 +7,11 @@ IN: euler.b-rep.io.obj
 <PRIVATE
 : write-obj-vertex ( vertex -- )
     "v " write
-    position>> 3 head-slice [ " " write ] [ number>string write ] interleave nl ;
+    position>> 3 head-slice [ bl ] [ number>string write ] interleave nl ;
 
 : write-obj-face ( face vx-indices -- )
     "f" write
-    [ edge>> ] dip '[ " " write vertex>> _ at 1 + number>string write ] each-face-edge nl ;
+    [ edge>> ] dip '[ bl vertex>> _ at 1 + number>string write ] each-face-edge nl ;
 PRIVATE>
 
 :: write-obj ( b-rep -- )

diff --git a/extra/html/parser/printer/printer.factor b/extra/html/parser/printer/printer.factor
index 858830e729caea0ad4dd3117d37f757dd5ee4acd..552d807e3ffc10d43fa248d862a4c04c89927dad 100644 (file)
--- a/extra/html/parser/printer/printer.factor
+++ b/extra/html/parser/printer/printer.factor
@@ -56,7 +56,7 @@ M: text-printer print-closing-tag
     [
         { "ul" "ol" "li" "tr" } member? [ nl ] when
     ]
-    [ "td" = [ " " write ] when ] tri ;
+    [ "td" = [ bl ] when ] tri ;
 
 M: text-printer print-comment-tag drop ;
 

diff --git a/extra/rosetta-code/metronome/metronome.factor b/extra/rosetta-code/metronome/metronome.factor
index 4541bb01495abe0e039d1d7c95e31e3b79098174..fe1bcc48a9cbac36ea57d1613665d4ed8d9012b6 100755 (executable)
--- a/extra/rosetta-code/metronome/metronome.factor
+++ b/extra/rosetta-code/metronome/metronome.factor
@@ -57,7 +57,7 @@ M: metronome-gadget pref-dim* drop { 200 200 } ;
 
 : print-defaults ( -- )
   metronome-defaults swap prefix
-  [ " " write ] [ number>string write ] interleave nl ;
+  [ bl ] [ number>string write ] interleave nl ;
 
 : metronome-usage ( -- )
     "Usage: metronome [BPM FREQUENCIES...]" print