ソースを参照

fix property encoding

Simon Krajewski 9 年 前
コミット
843759b331
1 ファイル変更1 行追加1 行削除
  1. 1 1
      src/macro/interp.ml

+ 1 - 1
src/macro/interp.ml

@@ -4343,7 +4343,7 @@ and decode_field v =
 		| 1, [f] ->
 		| 1, [f] ->
 			FFun (decode_fun f)
 			FFun (decode_fun f)
 		| 2, [get;set; t; e] ->
 		| 2, [get;set; t; e] ->
-			FProp (decode_placed_name get VNull, decode_placed_name set VNull, opt decode_ctype t, opt decode_expr e)
+			FProp (decode_placed_name VNull get, decode_placed_name VNull set, opt decode_ctype t, opt decode_expr e)
 		| _ ->
 		| _ ->
 			raise Invalid_expr
 			raise Invalid_expr
 	in
 	in