mescc: No comments in M1 when running on Mes.
[mes.git] / module / language / c99 / compiler.mes
index 239e837985e69905bcbb5b20278c985d34801b83..eb052248e70ab9d48d17a2b98b66a5d7da10bd52 100644 (file)
   (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