浏览代码

add some more cases to Ast.s_expr

Dan Korostelev 10 年之前
父节点
当前提交
4de275294d
共有 1 个文件被更改,包括 2 次插入0 次删除
  1. 2 0
      ast.ml

+ 2 - 0
ast.ml

@@ -732,4 +732,6 @@ let rec s_expr (e,_) =
 	| EArrayDecl el -> "[" ^ (String.concat "," (List.map s_expr el)) ^ "]"
 	| EObjectDecl fl -> "{" ^ (String.concat "," (List.map (fun (n,e) -> n ^ ":" ^ (s_expr e)) fl)) ^ "}"
 	| EBinop (op,e1,e2) -> s_expr e1 ^ s_binop op ^ s_expr e2
+	| ECall (e,el) -> s_expr e ^ "(" ^ (String.concat ", " (List.map s_expr el)) ^ ")"
+	| EField (e,f) -> s_expr e ^ "." ^ f
 	| _ -> "'???'"