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 () ->