strip newline and spaces before dedenting

Author: simeonschaub

src/julia-parser.scm

@@ -2185,8 +2185,13 @@
 (define (unescape-parsed-string-literal strs)
   (map-at even? unescape-string strs))
 
+(define (strip-escaped-newline s raw)
+  (if raw s (map (lambda (s)
+                   (if (string? s) (strip-escaped-newline- s) s))
+                 s)))
+
 ;; remove `\` followed by a newline
-(define (strip-escaped-newline s)
+(define (strip-escaped-newline- s)
   (let ((in  (open-input-string s))
         (out (open-output-string)))
     (define (loop preceding-backslash?)
@@ -2210,13 +2215,14 @@
                   (if (eqv? (peek-char (take-char p)) delim)
                       (map-first strip-leading-newline
                                  (dedent-triplequoted-string
-                                   (parse-string-literal- 2 (take-char p) s delim raw)))
+                                   (strip-escaped-newline
+                                     (parse-string-literal- 2 (take-char p) s delim raw)
+                                     raw)))
                       (list ""))
-                  (parse-string-literal- 0 p s delim raw))))
-    (if raw str (unescape-parsed-string-literal
-                  (map (lambda (s)
-                         (if (string? s) (strip-escaped-newline s) s))
-                       str)))))
+                  (strip-escaped-newline
+                    (parse-string-literal- 0 p s delim raw)
+                    raw))))
+    (if raw str (unescape-parsed-string-literal str))))
 
 (define (strip-leading-newline s)
   (let ((n (sizeof s)))