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