remove B"..." strings

Per the discussion in #2301.
JuliaLang · Mar 6, 2013 · e148584 · e148584
1 parent 16ce09f
commit e148584
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git a/base/string.jl b/base/string.jl
@@ -716,7 +716,6 @@ function byteliteral(args...)
     Expr(:call, :sprint, writer, sx...)
 end
 
-macro B_str(s...); byteliteral(s...); end
 macro b_str(s...); ex = byteliteral(s...); :(($ex).data); end
 
 macro   mstr(s...); triplequoted(unescape_string, s...); end

diff --git a/src/julia-parser.scm b/src/julia-parser.scm
@@ -802,7 +802,7 @@
 			    (not (ts:space? s)))
 		       ;; custom prefixed string literals, x"s" => @x_str "s"
                        (let* ((str (begin (take-token s)
-                                          (parse-string-literal s (memq ex '(b B I)))))
+                                          (parse-string-literal s (memq ex '(b I)))))
                               (nxt (peek-token s))
                               (suffix (if (triplequote-string-literal? str) '_mstr '_str))
                               (macname (symbol (string #\@ ex suffix)))