diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/closure.ml | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/kernel/closure.ml b/kernel/closure.ml index 3d21e86ae2..d7ae2d76fe 100644 --- a/kernel/closure.ml +++ b/kernel/closure.ml @@ -968,7 +968,6 @@ let rec knr info m stk = | FConstruct((sp,c),args) when can_red info stk fIOTA -> (match strip_update_shift_app m stk with (depth, args, Zcase(((*cn*) npar,_),_,br)::s) -> -(* let npar = stack_args_size args - cn.(c-1) in*) assert (npar>=0); let rargs = drop_parameters depth npar args in kni info br.(c-1) (rargs@s) |