|
@@ -531,7 +531,7 @@ let rec type_inline ctx cf f ethis params tret config p ?(self_calling_closure=f
|
|
| Some e -> map term e
|
|
| Some e -> map term e
|
|
| None -> error "Could not inline super constructor call" po
|
|
| None -> error "Could not inline super constructor call" po
|
|
end
|
|
end
|
|
- | _ -> error "Cannot inline function containint super" po
|
|
|
|
|
|
+ | _ -> error "Cannot inline function containing super" po
|
|
end
|
|
end
|
|
| TConst TSuper ->
|
|
| TConst TSuper ->
|
|
error "Cannot inline function containing super" po
|
|
error "Cannot inline function containing super" po
|