diff options
Diffstat (limited to 'interp/constrintern.ml')
| -rw-r--r-- | interp/constrintern.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 475f8d396..841a89584 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -1496,7 +1496,7 @@ let internalize globalenv env allow_patvar lvar c = let cargs = sort_fields true loc fs (fun k l -> CHole (loc, Some (Evar_kinds.QuestionMark (Evar_kinds.Define true)), None) :: l) - in + in begin match cargs with | None -> user_err_loc (loc, "intern", str"No constructor inference.") |