Previously merged to `set-file` utilities, but incorrectly.
This commit is contained in:
Matthew Flatt 2015-01-18 06:46:09 -07:00
parent 02b745d19a
commit d044fa0beb

View File

@ -218,6 +218,7 @@
'("pkg-test1"))))
(define (set-file path content)
(make-parent-directory* path)
(call-with-output-file*
path
#:exists 'truncate/replace