|
@@ -1338,7 +1338,7 @@ let rec type_ident_raise ctx i p mode =
|
|
|
| Some (params,e) ->
|
|
|
let t = monomorphs params v.v_type in
|
|
|
(match e with
|
|
|
- | Some ({ eexpr = TFunction f } as e) ->
|
|
|
+ | Some ({ eexpr = TFunction f } as e) when ctx.com.display = DMNone ->
|
|
|
begin match mode with
|
|
|
| MSet -> error "Cannot set inline closure" p
|
|
|
| MGet -> error "Cannot create closure on inline closure" p
|