diff options
| author |  regisgia <regisgia@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-08-27 12:41:26 +0000 |
|---|---|---|
| committer | regisgia <regisgia@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-08-27 12:41:26 +0000 |
| commit | eb26bfab9ed53d981859bea5208595cd921ff42d (patch) | |
| tree | 903b8a12da6dff396704fd06f7df6a00f0767f34 /kernel/safe_typing.ml | |
| parent | 836a8415ccbb0d89cf4db3509c95679e6ee7ebcd (diff) | |
* (checker|kernel)/Safe_typing:
Fix a bug in traverse_library.
The extraction was not satisfied with [mod_expr] set to [None].
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13384 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 504bfab04..43090c8e1 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -866,7 +866,7 @@ end = struct let traverse_library on_opaque_const_body = let rec lighten_module mb = { mb with - mod_expr = None; + mod_expr = Option.map lighten_modexpr mb.mod_expr; mod_type = lighten_modexpr mb.mod_type; } and lighten_struct struc = |