Browse Source

add debug_expr

frabbit 11 years ago
parent
commit
851b2df60c
1 changed files with 5 additions and 0 deletions
  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 () ->