瀏覽代碼

mention that a macro returned null when it did (closes #3225)

Simon Krajewski 11 年之前
父節點
當前提交
8f61a0bb83
共有 1 個文件被更改,包括 4 次插入1 次删除
  1. 4 1
      typer.ml

+ 4 - 1
typer.ml

@@ -4562,7 +4562,10 @@ let type_macro ctx mode cpath f (el:Ast.expr list) p =
 					(EBlock [],p)
 				)
 			with Interp.Invalid_expr ->
-				error "The macro didn't return a valid result" p
+				if v = Interp.VNull then
+					error "Unexpected null value returned from macro" p
+				else
+					error "The macro didn't return a valid result" p
 	in
 	let e = (if ctx.in_macro then begin
 		(*