From 5f1c6151dcceb59bd5ff3936c1bd66e51321e43b Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 4 Jun 2014 09:10:36 -0700 Subject: [PATCH] extra: use bl when possible instead of ``" " write``. --- extra/euler/b-rep/io/obj/obj.factor | 4 ++-- extra/html/parser/printer/printer.factor | 2 +- extra/rosetta-code/metronome/metronome.factor | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/extra/euler/b-rep/io/obj/obj.factor b/extra/euler/b-rep/io/obj/obj.factor index 5914d3b621..2a68fb3401 100644 --- 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 > 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 858830e729..552d807e3f 100644 --- 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 4541bb0149..fe1bcc48a9 100755 --- 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 -- 2.34.1