diff options
| author | filliatr | 1999-12-14 14:26:48 +0000 |
|---|---|---|
| committer | filliatr | 1999-12-14 14:26:48 +0000 |
| commit | 48249e6831061420ac57f38b538185008f9a5011 (patch) | |
| tree | d4f8a7767ff07b9f48c3ba5728544a1b15fa4666 /kernel | |
| parent | c8da19b11952126f09b9d32002534ce91ae0d47c (diff) | |
clarification du code
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@255 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/reduction.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/reduction.ml b/kernel/reduction.ml index 195b4ce18f..5b0fbe61ca 100644 --- a/kernel/reduction.ml +++ b/kernel/reduction.ml @@ -625,7 +625,7 @@ let whd_betadeltaiota_stack env sigma = | DOPN(AppL,cl) -> bdi_rec (array_hd cl) (array_app_tl cl stack) | DOP2(Lambda,_,DLAM(_,c)) -> (match stack with - | [] -> (x,stack) + | [] -> (x,[]) | (a::m) -> stacklam bdi_rec [a] c m) | DOPN(MutCase _,_) -> let (ci,p,d,lf) = destCase x in |