mescc: Replace \r in comments.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 2 Dec 2018 06:26:07 +0000 (07:26 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 2 Dec 2018 06:26:07 +0000 (07:26 +0100)
* module/mescc/compile.scm (ast->comment): Replace \r in comments.

module/mescc/compile.scm

index 736c8053c5ae212d25d9288b6dacc19c6fe945ab..7df0afc6deff5a641fe9859ee2b225162b8cdc37 100644 (file)
              (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 "'''" "'\\''"))
+             (source (string-substitute source "\n" "\\n"))
+             (source (string-substitute source "\r" "\\r")))
+        (make-comment source))))
 
 (define (r*n info n)
   (case n