diff options
author | Pierre Boutillier <pierre.boutillier@ens-lyon.org> | 2014-04-23 14:03:27 +0200 |
---|---|---|
committer | Pierre Boutillier <pierre.boutillier@ens-lyon.org> | 2014-05-26 15:24:31 +0200 |
commit | 8ffd4e54ba8a05cb57f09d4333a7990f96a4cfd0 (patch) | |
tree | e17eafed7ba4ae61fccd69f6dcf8933aa1d05315 /pretyping/tacred.ml | |
parent | 8d0a40424f124da79152a24f631008d6f88c303d (diff) |
Reduction.Stack.Fix/Case stores Cst_stack.t
Diffstat (limited to 'pretyping/tacred.ml')
-rw-r--r-- | pretyping/tacred.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml index 1ba6350b5..18723f645 100644 --- a/pretyping/tacred.ml +++ b/pretyping/tacred.ml @@ -454,7 +454,7 @@ let reduce_fix whdfun sigma fix stack = let (recarg'hd,_ as recarg') = whdfun sigma recarg in let stack' = List.assign stack recargnum (applist recarg') in (match kind_of_term recarg'hd with - | Construct _ -> Reduced (contract_fix fix None, stack') + | Construct _ -> Reduced (contract_fix fix Reductionops.Cst_stack.empty, stack') | _ -> NotReducible) let contract_fix_use_function env sigma f |