Handle syntax error in string escape mecamism

1 files changed, 6 insertions, 2 deletions

diff --git a/lib/qparser/analyzer.ml b/lib/qparser/analyzer.ml
index 7d9b7d2..ca2b54f 100644
--- a/lib/qparser/analyzer.ml
+++ b/lib/qparser/analyzer.ml
@@ -34,11 +34,15 @@ let rec parse :
               { code = Interpreter.Custom message; start_pos; end_pos }
           in
           Error err
-      | Lexer.UnclosedQuote ->
+      | Lexer.UnclosedQuote | Lex_state.Out_of_context ->
           let start_pos, end_pos = Lexbuf.positions l in
           let err =
             IncrementalParser.
-              { code = Interpreter.Custom "Unclosed text"; start_pos; end_pos }
+              {
+                code = Interpreter.Custom "Unclosed string";
+                start_pos;
+                end_pos;
+              }
           in
           Error err
     in