Fix a small problems in generating the readme file.
This commit is contained in:
parent
391444741f
commit
c9f359a3c4
|
@ -502,7 +502,7 @@
|
||||||
(set! *readme-cache* (file->string *readme-file*))
|
(set! *readme-cache* (file->string *readme-file*))
|
||||||
(set! *info-domain-cache* (with-input-from-file *info-domain-file* read)))
|
(set! *info-domain-cache* (with-input-from-file *info-domain-file* read)))
|
||||||
(define (write-orig-files)
|
(define (write-orig-files)
|
||||||
(display-to-file *readme-file* *readme-cache*)
|
(display-to-file *readme-cache* *readme-file* #:exists 'truncate)
|
||||||
(with-output-to-file *info-domain-file* #:exists 'truncate
|
(with-output-to-file *info-domain-file* #:exists 'truncate
|
||||||
(lambda () (write *info-domain-cache*) (newline))))
|
(lambda () (write *info-domain-cache*) (newline))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user