mescc: Resurrect --write.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 26 Jul 2019 16:57:45 +0000 (18:57 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 26 Jul 2019 16:57:45 +0000 (18:57 +0200)
* module/mescc/mescc.scm (mescc:preprocess): Pass pretty-print/write
to c->ast.

module/mescc/mescc.scm

index 83ebd1d241cfd78d24e6699833db9670cf52aab8..fbb28f07a2877f34437da0762c97bf79422c387c 100644 (file)
@@ -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