|
@@ -476,7 +476,7 @@ and gen_expr ctx e =
|
|
|
| TField (x,f) ->
|
|
|
gen_value ctx x;
|
|
|
let name = field_name f in
|
|
|
- spr ctx (match f with FStatic _ | FEnum _ -> static_field name | FInstance _ | FAnon _ | FDynamic _ | FClosure _ -> field name)
|
|
|
+ spr ctx (match f with FStatic _ -> static_field name | FEnum _ | FInstance _ | FAnon _ | FDynamic _ | FClosure _ -> field name)
|
|
|
| TTypeExpr t ->
|
|
|
spr ctx (ctx.type_accessor t)
|
|
|
| TParenthesis e ->
|