Allow \<x> in strings where <x> is not "

2021-11-28 13:19:15 +07:00 · 2021-11-28 13:19:15 +07:00 · edf257d36b
parent 9a33a3412f
commit edf257d36b
4 changed files with 1846 additions and 1837 deletions
--- a/grammar.js
+++ b/grammar.js
@ -197,7 +197,7 @@ module.exports = grammar(clojure, {
                '"',
                repeat(choice(
                    token.immediate(prec(1, /[^\\~"]+/)),
-                    token.immediate(seq("\\\"")),
+                    token.immediate(seq(/\\./)),
                    $.format_specifier,
                )),
                optional('~'),
--- a/src/grammar.json
+++ b/src/grammar.json
@ -581,8 +581,8 @@
                  "type": "SEQ",
                  "members": [
                    {
-                      "type": "STRING",
-                      "value": "\\\""
+                      "type": "PATTERN",
+                      "value": "\\\\."
                    }
                  ]
                }
--- a/src/parser.c
+++ b/src/parser.c
--- a/test/corpus/basic.txt
+++ b/test/corpus/basic.txt
@ -1205,3 +1205,16 @@ loop with 2
          (list_lit
            (sym_lit)
            (sym_lit)))))))
+
+================================================================================
+Backslashes in strings
+================================================================================
+  "Returns the arglist of the subform _immediately_ containing
+CURSOR-MARKER+ in `form'. Notice, however, that +CURSOR-MARKER+ may
+be in a nested arglist \(e.g. `(WITH-OPEN-FILE (<here>'\), and the
+arglist of the appropriate parent form \(WITH-OPEN-FILE\) will be
+returned in that case."
+
+--------------------------------------------------------------------------------
+
+