artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mescc: Resurrect --write.

Browse source 
* module/mescc/mescc.scm (mescc:preprocess): Pass pretty-print/write
to c->ast.
This commit is contained in:
Jan Nieuwenhuizen 2019-07-26 18:57:45 +02:00
parent 72e3582322
commit d5a0ecb3d5
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
module/mescc/mescc.scm
View file

@ -57,7 +57,7 @@
(arch (if (equal? machine "32") "__i386__=1" "__x86_64__=1")) (arch (if (equal? machine "32") "__i386__=1" "__x86_64__=1"))
(defines (cons (arch-get-define options) defines))) (defines (cons (arch-get-define options) defines)))
(with-output-to-file ast-file-name (with-output-to-file ast-file-name
(lambda _ (for-each (cut c->ast prefix defines includes write <>) files))))) (lambda _ (for-each (cut c->ast prefix defines includes pretty-print/write <>) files)))))
(define (c->ast prefix defines includes write file-name) (define (c->ast prefix defines includes write file-name)
(with-input-from-file file-name (with-input-from-file file-name