浏览代码

add debug_expr

frabbit 11 年之前
父节点
当前提交
851b2df60c
共有 1 个文件被更改,包括 5 次插入0 次删除
  1. 5 0
      genpy.ml

+ 5 - 0
genpy.ml

@@ -182,6 +182,11 @@ module Transformer = struct
 		t_bool := com.basic.tbool;
 		t_void := com.basic.tvoid
 
+	and debug_expr e = 
+		let s_type = Type.s_type (print_context()) in
+		let s = Type.s_expr_pretty "\t" s_type e in
+		Printf.printf "%s\n" s
+
 	let new_counter () =
 		let n = ref (-1) in
 		(fun () ->