ソースを参照

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

Nicolas Cannasse 13 年 前
コミット
e4072f0b63
1 ファイル変更4 行追加0 行削除
  1. 4 0
      typer.ml

+ 4 - 0
typer.ml

@@ -2895,6 +2895,10 @@ let typing_timer ctx f =
 			ctx.com.error <- old;
 			t();
 			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 ->
 			ctx.com.error <- old;
 			t();