diff options
author | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-10-20 13:50:08 +0000 |
---|---|---|
committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-10-20 13:50:08 +0000 |
commit | 9c6487ba87f448daa28158c6e916e3d932c50645 (patch) | |
tree | 31bc965d5d14b34d4ab501cbd2350d1de44750c5 /pretyping/evarutil.ml | |
parent | 1457d6a431755627e3b52eaf74ddd09c641a9fe3 (diff) |
COMMITED BYTECODE COMPILER
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6245 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/evarutil.ml')
-rw-r--r-- | pretyping/evarutil.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/evarutil.ml b/pretyping/evarutil.ml index 52a899714..c199eb008 100644 --- a/pretyping/evarutil.ml +++ b/pretyping/evarutil.ml @@ -458,7 +458,7 @@ let solve_refl conv_algo env isevars ev argsv1 argsv2 = let (isevars',_,rsign) = array_fold_left2 (fun (isevars,sgn,rsgn) a1 a2 -> - let (isevars',b) = conv_algo env isevars CONV a1 a2 in + let (isevars',b) = conv_algo env isevars Reduction.CONV a1 a2 in if b then (isevars',List.tl sgn, add_named_decl (List.hd sgn) rsgn) else |