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 c6a819d440..bfd74a5aa2 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -528,7 +528,7 @@ let rec intern_cases_pattern scopes aliases tmp_scope = function let rec intern_fix = function | [] -> ([],[],[],[]) - | (fi, n, c, t)::rest-> + | (fi, n, on, c, t)::rest-> let (lf,ln,lc,lt) = intern_fix rest in (fi::lf, n::ln, c::lc, t::lt) |