Przeglądaj źródła

implement missing TReturn sub-case

Simon Krajewski 11 lat temu
rodzic
commit
a55d0209ef
1 zmienionych plików z 2 dodań i 1 usunięć
  1. 2 1
      genpy.ml

+ 2 - 1
genpy.ml

@@ -596,7 +596,8 @@ module Transformer = struct
 				| [] ->
 					lift true [] { ae.a_expr with eexpr = TReturn(Some x1.a_expr) }
 				| _ ->
-					ae)
+					let f = exprs_to_func (x1.a_blocks @ [x1.a_expr]) (ae.a_next_id()) ae in
+					lift true f.a_blocks {ae.a_expr with eexpr = TReturn (Some f.a_expr)})
 		| (_, TParenthesis(e1)) ->
 			let e1 = trans true [] e1 in
 			let p = { ae.a_expr with eexpr = TParenthesis(e1.a_expr)} in