steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2014-06-04 09:10:36 -07:00
parent 27d929b8e5
commit 5f1c6151dc
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/euler/b-rep/io/obj/obj.factor
View File

@ -7,11 +7,11 @@ IN: euler.b-rep.io.obj
<PRIVATE <PRIVATE
: write-obj-vertex ( vertex -- ) : write-obj-vertex ( vertex -- )
"v " write "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 -- ) : write-obj-face ( face vx-indices -- )
"f" write "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> PRIVATE>
:: write-obj ( b-rep -- ) :: write-obj ( b-rep -- )

2
extra/html/parser/printer/printer.factor
View File

@ -56,7 +56,7 @@ M: text-printer print-closing-tag
[ [
{ "ul" "ol" "li" "tr" } member? [ nl ] when { "ul" "ol" "li" "tr" } member? [ nl ] when
] ]
[ "td" = [ " " write ] when ] tri ; [ "td" = [ bl ] when ] tri ;
M: text-printer print-comment-tag drop ; M: text-printer print-comment-tag drop ;

2
extra/rosetta-code/metronome/metronome.factor
View File

@ -57,7 +57,7 @@ M: metronome-gadget pref-dim* drop { 200 200 } ;
: print-defaults ( -- ) : print-defaults ( -- )
metronome-defaults swap prefix metronome-defaults swap prefix
[ " " write ] [ number>string write ] interleave nl ; [ bl ] [ number>string write ] interleave nl ;
: metronome-usage ( -- ) : metronome-usage ( -- )
"Usage: metronome [BPM FREQUENCIES...]" print "Usage: metronome [BPM FREQUENCIES...]" print