Browse Source

fixed catching WithTypeError in Context.typeof and other macros calls involving typing

Nicolas Cannasse 13 years ago
parent
commit
e4072f0b63
1 changed files with 4 additions and 0 deletions
  1. 4 0
      typer.ml

+ 4 - 0
typer.ml

@@ -2895,6 +2895,10 @@ let typing_timer ctx f =
 			ctx.com.error <- old;
 			ctx.com.error <- old;
 			t();
 			t();
 			Interp.compiler_error (Typecore.error_msg ekind) p
 			Interp.compiler_error (Typecore.error_msg ekind) p
+		| WithTypeError (l,p) ->
+			ctx.com.error <- old;
+			t();
+			Interp.compiler_error (Typecore.error_msg (Unify l)) p
 		| e ->
 		| e ->
 			ctx.com.error <- old;
 			ctx.com.error <- old;
 			t();
 			t();