|
@@ -631,7 +631,7 @@ and gen_expr ctx e =
|
|
|
| TObjectDecl fields ->
|
|
|
spr ctx "{ ";
|
|
|
concat ctx ", " (fun (f,e) -> (match e.eexpr with
|
|
|
- | TMeta((Meta.QuotedField,_,_),e) -> print ctx "'%s' : " f;
|
|
|
+ | TMeta((Meta.QuotedField,_,_),e) -> print ctx "'%s' : " (Ast.s_escape f);
|
|
|
| _ -> print ctx "%s : " (anon_field f));
|
|
|
gen_value ctx e
|
|
|
) fields;
|