|
@@ -94,14 +94,15 @@ let typing_timer ctx need_type f =
|
|
| Stack stack -> (Stack (List.map located_to_error stack),null_pos)
|
|
| Stack stack -> (Stack (List.map located_to_error stack),null_pos)
|
|
in
|
|
in
|
|
|
|
|
|
- ctx.com.located_error <- (fun ?(depth=0) msg ->
|
|
|
|
- let (e,p) = located_to_error msg in
|
|
|
|
- raise (Error (e,p,depth)));
|
|
|
|
-
|
|
|
|
if need_type && ctx.pass < PTypeField then begin
|
|
if need_type && ctx.pass < PTypeField then begin
|
|
ctx.pass <- PTypeField;
|
|
ctx.pass <- PTypeField;
|
|
flush_pass ctx PBuildClass "typing_timer";
|
|
flush_pass ctx PBuildClass "typing_timer";
|
|
end;
|
|
end;
|
|
|
|
+
|
|
|
|
+ ctx.com.located_error <- (fun ?(depth=0) msg ->
|
|
|
|
+ let (e,p) = located_to_error msg in
|
|
|
|
+ raise (Error (e,p,depth)));
|
|
|
|
+
|
|
let exit() =
|
|
let exit() =
|
|
t();
|
|
t();
|
|
ctx.com.located_error <- old;
|
|
ctx.com.located_error <- old;
|