trying again on issue #100. unescape only " for macro arguments.

JuliaLang · Jul 9, 2011 · 40cf0d8 · 40cf0d8
1 parent 793b9a5
commit 40cf0d8
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/j/client.j b/j/client.j
@@ -122,7 +122,7 @@ jl_banner_color =
    $(jl)_ _   _| |_  __ _$(tx)   |  pre-release version
   $(jl)| | | | | | |/ _` |$(tx)  |
   $(jl)| | |_| | | | (_| |$(tx)  |
- $(jl)_/ |\\\\__'_|_|_|\\\\__'_|$(tx)  |
+ $(jl)_/ |\\__'_|_|_|\\__'_|$(tx)  |
 $(jl)|__/$(tx)                   |
 
 \033[0m"

diff --git a/src/julia-parser.scm b/src/julia-parser.scm
@@ -864,7 +864,7 @@
 	  #t
 	  (begin (if (eqv? c #\\)
 		     (let ((nextch (read-char buf)))
-		       (if (or (eqv? nextch #\") (eqv? nextch #\\))
+		       (if (eqv? nextch #\")
 			   (write-char nextch b)
 			   (begin (write-char #\\ b)
 				  (write-char nextch b))))
@@ -885,7 +885,7 @@
 	  #t
 	  (begin (if (eqv? c #\\)
 		     (let ((nextch (read-char p)))
-		       (if (or (eqv? nextch #\") (eqv? nextch #\\))
+		       (if (eqv? nextch #\")
 			   (set! hasquotes #t))
 		       (begin (write-char #\\ b)
 			      (write-char (not-eof-3 nextch) b)))