|
@@ -138,7 +138,7 @@ module Meta = struct
|
|
let get m ml = List.find (fun (m2,_,_) -> m = m2) ml
|
|
let get m ml = List.find (fun (m2,_,_) -> m = m2) ml
|
|
|
|
|
|
let to_string_ref = ref (fun _ -> assert false)
|
|
let to_string_ref = ref (fun _ -> assert false)
|
|
- let to_string (m : strict_meta) : string = !to_string_ref m
|
|
|
|
|
|
+ let to_string (m : strict_meta) : string = !to_string_ref m
|
|
end
|
|
end
|
|
|
|
|
|
type keyword =
|
|
type keyword =
|
|
@@ -686,4 +686,5 @@ let rec s_expr (e,_) =
|
|
| EParenthesis e -> "(" ^ (s_expr e) ^ ")"
|
|
| EParenthesis e -> "(" ^ (s_expr e) ^ ")"
|
|
| EArrayDecl el -> "[" ^ (String.concat "," (List.map s_expr el)) ^ "]"
|
|
| EArrayDecl el -> "[" ^ (String.concat "," (List.map s_expr el)) ^ "]"
|
|
| EObjectDecl fl -> "{" ^ (String.concat "," (List.map (fun (n,e) -> n ^ ":" ^ (s_expr e)) fl)) ^ "}"
|
|
| 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
|
|
| _ -> "'???'"
|
|
| _ -> "'???'"
|