| M.SuperOp -> "super "
in
let txt_vvar_list l =
- txt_list txt_vvar "," l
+ txt_list txt_vvar ", " l
in
let rec txt_val = function
| M.Const [s] -> txt_qstr s
- | M.Const l -> "{" ^ txt_list txt_qstr "," l ^ "}"
+ | M.Const l -> "{" ^ txt_list txt_qstr ", " l ^ "}"
| M.VVar vv -> txt_vvar vv
| M.Record (rv, vv) -> txt_rvar rv ^ "." ^ txt_vvar vv
| M.Fun (s, x) -> "fun " ^ txt_qstr s ^ " " ^ txt_val x
let text_of_result x sep =
let txt_attr = function
| (s, []) -> txt_qstr s
- | (s, l) -> txt_qstr s ^ "=" ^ txt_list txt_qstr "," l
+ | (s, l) -> txt_qstr s ^ "=" ^ txt_list txt_qstr ", " l
in
- let txt_group l = "{" ^ txt_list txt_attr ";" l ^ "}" in
+ let txt_group l = "{" ^ txt_list txt_attr "; " l ^ "}" in
let txt_res = function
| (s, []) -> txt_qstr s
- | (s, l) -> txt_qstr s ^ " attr " ^ txt_list txt_group "," l
+ | (s, l) -> txt_qstr s ^ " attr " ^ txt_list txt_group ", " l
in
- let txt_set l = txt_list txt_res (";" ^ sep) l in
+ let txt_set l = txt_list txt_res ("; " ^ sep) l in
txt_set x
let query_of_text lexbuf =