فهرست منبع

Merge pull request #2437 from frabbit/patch-5

fix encode_texpr for TVar
Simon Krajewski 11 سال پیش
والد
کامیت
37929c8362
1فایلهای تغییر یافته به همراه1 افزوده شده و 5 حذف شده
  1. 1 5
      interp.ml

+ 1 - 5
interp.ml

@@ -4480,11 +4480,7 @@ and encode_texpr e =
 			| TNew(c,pl,el) -> 10,[encode_clref c;encode_tparams pl;encode_texpr_list el]
 			| TUnop(op,flag,e1) -> 11,[encode_unop op;VBool (flag = Postfix);loop e1]
 			| TFunction func -> 12,[encode_tfunc func]
-			| TVar (v,eo) -> 13,[
-				enc_obj [
-					"v",encode_tvar v;
-					"expr",vopt encode_texpr eo
-				]]
+			| TVar (v,eo) -> 13,[encode_tvar v;vopt encode_texpr eo]
 			| TBlock el -> 14,[encode_texpr_list el]
 			| TFor(v,e1,e2) -> 15,[encode_tvar v;loop e1;loop e2]
 			| TIf(eif,ethen,eelse) -> 16,[loop eif;loop ethen;vopt encode_texpr eelse]