mescc: No comments in M1 when running on Mes.

* module/language/c99/compiler.mes (ast-comment): If mes?, return nil.

diff --git a/module/language/c99/compiler.mes b/module/language/c99/compiler.mes
index 239e837985e69905bcbb5b20278c985d34801b83..eb052248e70ab9d48d17a2b98b66a5d7da10bd52 100644 (file)
--- a/module/language/c99/compiler.mes
+++ b/module/language/c99/compiler.mes
@@ -774,8 +774,9 @@
   (wrap-as `((#:comment ,o))))
 
 (define (ast->comment o)
-  (let ((source (with-output-to-string (lambda () (pretty-print-c99 o)))))
-    (make-comment (string-join (string-split source #\newline) " "))))
+  (if mes? '()
+      (let ((source (with-output-to-string (lambda () (pretty-print-c99 o)))))
+        (make-comment (string-join (string-split source #\newline) " ")))))
 
 (define (accu*n info n)
   (append-text info (wrap-as (case n