diff options
| author |  bertot <bertot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-02-12 16:39:43 +0000 |
|---|---|---|
| committer | bertot <bertot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-02-12 16:39:43 +0000 |
| commit | 55fb4d43e1113608f77f8f2b375e9daffe4fe3dc (patch) | |
| tree | 63ab92cb6aa36557c431a8d2ca1f2396b249d3db /contrib/interface/xlate.ml | |
| parent | b9e593857a6b74568e964d68b48e3253dcd33592 (diff) | |
lazy was translated to cbv, obviously wrong
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5322 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface/xlate.ml')
| -rw-r--r-- | contrib/interface/xlate.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index f09a8595b..0a9dffb9d 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -753,7 +753,7 @@ and xlate_red_tactic = CT_cbv (CT_conversion_flag_list conv_flags, red_ids) | Lazy flag_list -> let conv_flags, red_ids = get_flag flag_list in - CT_cbv (CT_conversion_flag_list conv_flags, red_ids) + CT_lazy (CT_conversion_flag_list conv_flags, red_ids) | Unfold unf_list -> let ct_unf_list = List.map xlate_one_unfold_block unf_list in (match ct_unf_list with |