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

mescc: Replace \r in comments.

Browse source 
* module/mescc/compile.scm (ast->comment): Replace \r in comments.
This commit is contained in:
Jan Nieuwenhuizen 2018-12-02 07:26:07 +01:00
parent 8f8852ccff
commit 0a32045caf
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
module/mescc/compile.scm
View file

@ -587,8 +587,10 @@
(source (string-substitute source "\\" "\\\\")) (source (string-substitute source "\\" "\\\\"))
(source (string-substitute source "'\\'" "'\\\\'")) (source (string-substitute source "'\\'" "'\\\\'"))
(source (string-substitute source "'\"'" "'\\\"'")) (source (string-substitute source "'\"'" "'\\\"'"))
(source (string-substitute source "'''" "'\\''"))) (source (string-substitute source "'''" "'\\''"))
(make-comment (string-join (string-split source #\newline) " "))))) (source (string-substitute source "\n" "\\n"))
(source (string-substitute source "\r" "\\r")))
(make-comment source))))
(define (r*n info n) (define (r*n info n)
(case n (case n