diff options
| author | barras | 2004-11-17 15:10:26 +0000 |
|---|---|---|
| committer | barras | 2004-11-17 15:10:26 +0000 |
| commit | deadb6055aeca7a2ed944deabb96a5d9ebdbd114 (patch) | |
| tree | 28cc3cf9f9797d2e9f69c96e5c81371b9aef4476 /kernel/cbytegen.ml | |
| parent | fb5036b81d8eac2bfb1c32d31409489941fd2551 (diff) | |
bug module M:=N avec vm
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6321 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/cbytegen.ml')
| -rw-r--r-- | kernel/cbytegen.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/cbytegen.ml b/kernel/cbytegen.ml index 022f913ba0..108dadbb78 100644 --- a/kernel/cbytegen.ml +++ b/kernel/cbytegen.ml @@ -471,7 +471,7 @@ let compile env c = init_code,!fun_code, Array.of_list fv -let compile_constant_body env kn body opaque boxed = +let compile_constant_body env body opaque boxed = if opaque then BCconstant else match body with | None -> BCconstant |