Explorar o código

add debug_expr

frabbit %!s(int64=11) %!d(string=hai) anos
pai
achega
851b2df60c
Modificáronse 1 ficheiros con 5 adicións e 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 () ->