diff options
| author | filliatr | 1999-09-10 14:00:56 +0000 |
|---|---|---|
| committer | filliatr | 1999-09-10 14:00:56 +0000 |
| commit | 2c6002d1fbf08ee68914227e3a4267cb38ff8b81 (patch) | |
| tree | 83caeab0f53e7b4fc72ffb1637a0696f0231a2ed /kernel/typing.ml | |
| parent | 540bd2b46fd848fbf6d1f8c2804580d3afed98a6 (diff) | |
modules System, Lib et States
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@71 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/typing.ml')
| -rw-r--r-- | kernel/typing.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/kernel/typing.ml b/kernel/typing.ml index f3928b2fdc..7cd127cf60 100644 --- a/kernel/typing.ml +++ b/kernel/typing.ml @@ -159,7 +159,8 @@ and execute_array mf env v = (Array.of_list jl, u1) and execute_list mf env = function - | [] -> ([], universes env) + | [] -> + ([], universes env) | c::r -> let (j,u') = execute mf env c in let (jr,u'') = execute_list mf (set_universes u' env) r in |