Make scaffolding use set-file-lines so that generated text files end with a newline.
parent
234fa6e20d
commit
cdb297f6f3
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue