diff options
| author | herbelin | 2001-07-21 20:27:28 +0000 |
|---|---|---|
| committer | herbelin | 2001-07-21 20:27:28 +0000 |
| commit | d97237a9e3c2e685e297e86f47d4a7f6fda1d9b5 (patch) | |
| tree | 359f57f329b1df10dd22857384c86e269e51d926 /kernel | |
| parent | f48478679585360a13ffc561a13ceb13dfed88d6 (diff) | |
Nettoyage
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1861 85f007b7-540e-0410-9357-904b9bb8a0f7
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) |