Просмотр исходного кода

expose typer to macro api on ocaml side

Alexander Kuzmenko 7 лет назад
Родитель
Сommit
ceeba64a1a
2 измененных файлов с 2 добавлено и 0 удалено
  1. 1 0
      src/macro/macroApi.ml
  2. 1 0
      src/typing/macroContext.ml

+ 1 - 0
src/macro/macroApi.ml

@@ -54,6 +54,7 @@ type 'value compiler_api = {
 	encode_ctype : Ast.type_hint -> 'value;
 	decode_type : 'value -> t;
 	flush_context : (unit -> t) -> t;
+	typer_ctx : Typecore.typer;
 }
 
 

+ 1 - 0
src/typing/macroContext.ml

@@ -396,6 +396,7 @@ let make_macro_api ctx p =
 		MacroApi.encode_expr = Interp.encode_expr;
 		MacroApi.encode_ctype = Interp.encode_ctype;
 		MacroApi.decode_type = Interp.decode_type;
+		MacroApi.typer_ctx = ctx;
 	}
 
 let rec init_macro_interp ctx mctx mint =