diff options
| author | coq | 2002-10-07 16:56:17 +0000 |
|---|---|---|
| committer | coq | 2002-10-07 16:56:17 +0000 |
| commit | 02ae9a0b28366372c9eaad1c25428c65314e6fcb (patch) | |
| tree | 3526dd0b974d94975edab48075eb6b8117ff2ecb /contrib/interface | |
| parent | fb8c46171399af936caa3fbab8eff0cfc06ec94d (diff) | |
Lazy manuelles dans le code
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3100 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface')
| -rw-r--r-- | contrib/interface/name_to_ast.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/interface/name_to_ast.ml b/contrib/interface/name_to_ast.ml index b35a5f56fa..0ae3b2d821 100644 --- a/contrib/interface/name_to_ast.ml +++ b/contrib/interface/name_to_ast.ml @@ -177,7 +177,7 @@ let constant_to_ast_list kn = None -> make_variable_ast (id_of_label (label kn)) typ l | Some c1 -> - make_definition_ast (id_of_label (label kn)) (Lazy.force_val c1) typ l) + make_definition_ast (id_of_label (label kn)) (Declarations.force c1) typ l) let variable_to_ast_list sp = let ((id, c, v), _) = get_variable sp in |