artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mescc: No comments in M1 when running on Mes.

Browse source 
* module/language/c99/compiler.mes (ast-comment): If mes?, return nil.
This commit is contained in:
Jan Nieuwenhuizen 2018-04-07 13:13:26 +02:00
parent 5867ac4afe
commit 83549786ed
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
module/language/c99/compiler.mes
View file

@ -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