mescc: No comments in M1 when running on Mes.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sat, 7 Apr 2018 11:13:26 +0000 (13:13 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sat, 7 Apr 2018 11:13:26 +0000 (13:13 +0200)
* module/language/c99/compiler.mes (ast-comment): If mes?, return nil.

module/language/c99/compiler.mes

index 239e837985e69905bcbb5b20278c985d34801b83..eb052248e70ab9d48d17a2b98b66a5d7da10bd52 100644 (file)
   (wrap-as `((#:comment ,o))))
 
 (define (ast->comment o)
   (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
 
 (define (accu*n info n)
   (append-text info (wrap-as (case n