From d5a0ecb3d552ecc23c6bede6d7dce77820481cbc Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Fri, 26 Jul 2019 18:57:45 +0200 Subject: [PATCH] mescc: Resurrect --write. * module/mescc/mescc.scm (mescc:preprocess): Pass pretty-print/write to c->ast. --- module/mescc/mescc.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/mescc/mescc.scm b/module/mescc/mescc.scm index 83ebd1d2..fbb28f07 100644 --- a/module/mescc/mescc.scm +++ b/module/mescc/mescc.scm @@ -57,7 +57,7 @@ (arch (if (equal? machine "32") "__i386__=1" "__x86_64__=1")) (defines (cons (arch-get-define options) defines))) (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) (with-input-from-file file-name