From cdb297f6f3e91ff764d88588319f24e07e9f900a Mon Sep 17 00:00:00 2001 From: Erik Charlebois Date: Mon, 22 Feb 2010 20:39:45 -0800 Subject: [PATCH] Make scaffolding use set-file-lines so that generated text files end with a newline. --- basis/tools/scaffold/scaffold.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/tools/scaffold/scaffold.factor b/basis/tools/scaffold/scaffold.factor index 9e1d08e352..8fd3e53e19 100644 --- a/basis/tools/scaffold/scaffold.factor +++ b/basis/tools/scaffold/scaffold.factor @@ -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