mescc: Resurrect --write.

[mes.git] / module / mescc / mescc.scm

diff --git a/module/mescc/mescc.scm b/module/mescc/mescc.scm
index 83ebd1d241cfd78d24e6699833db9670cf52aab8..fbb28f07a2877f34437da0762c97bf79422c387c 100644 (file)
--- 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