forked from
jonmsterling.com/ocaml-forester
ocaml
disable new parse error mechanism
authored by
Kento Okura
and committed by
Jon Sterling
1a253a00
5a5f50f4
+12
-11
+12
-11
lib/compiler/Parse.ml
+12
-11
lib/compiler/Parse.ml
···
121
121
let end_position = lexbuf.lex_curr_p in
122
122
if is_opening_delim token then
123
123
let range = Range.of_lex_range (start_position, end_position) in
124
-
Stack.push (token, range) delim_stack;
125
-
;
124
+
Stack.push (token, range) delim_stack; ;
126
125
if is_closing_delim token then
127
126
begin
128
127
match Stack.top_opt delim_stack with
···
150
149
(Asai.Diagnostic.text "")
151
150
)
152
151
else
153
-
let err
154
-
=
155
-
get_parse_error env
156
-
in
152
+
(* let err *)
153
+
(* = *)
154
+
(* get_parse_error env *)
155
+
(* in *)
157
156
let range_of_last_unclosed =
158
157
Option.map snd @@ Stack.top_opt delim_stack
159
158
in
···
176
175
in
177
176
Error
178
177
(
179
-
Asai.Diagnostic.of_loctext
180
-
~extra_remarks
181
-
Error
182
-
Forester_core.Reporter.Message.Parse_error
183
-
{ loc = Some loc; value = err.value }
178
+
Asai.Diagnostic.(
179
+
of_loctext
180
+
~extra_remarks
181
+
Error
182
+
Forester_core.Reporter.Message.Parse_error
183
+
(loctext ~loc Format.(sprintf "syntax error, unexpected %s" (Lexing.lexeme lexbuf)))
184
+
)
184
185
)
185
186
| I.Accepted code -> Ok code
186
187
| I.Rejected ->