Explorar el Código

add debug_expr

frabbit hace 11 años
padre
commit
851b2df60c
Se han modificado 1 ficheros con 5 adiciones y 0 borrados
  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 () ->