Make scaffolding use set-file-lines so that generated text files end with a newline.

db4
Erik Charlebois 2010-02-22 20:39:45 -08:00
parent 234fa6e20d
commit cdb297f6f3
1 changed files with 3 additions and 3 deletions

View File

@ -94,7 +94,7 @@ M: bad-developer-name summary
] with-string-writer ;
: set-scaffold-main-file ( vocab path -- )
[ main-file-string ] dip utf8 set-file-contents ;
[ main-file-string 1array ] dip utf8 set-file-lines ;
: scaffold-main ( vocab-root vocab -- )
[ ".factor" vocab-root/vocab/suffix>path ] keep swap scaffolding? [
@ -106,8 +106,8 @@ M: bad-developer-name summary
: scaffold-metadata ( vocab file contents -- )
[ ensure-vocab-exists ] 2dip
[
[ vocab/file>path ] dip swap scaffolding? [
utf8 set-file-contents
[ vocab/file>path ] dip 1array swap scaffolding? [
utf8 set-file-lines
] [
2drop
] if