From 60de53d159c85b8300226a61aa502a7e0dd2f04b Mon Sep 17 00:00:00 2001
From: letouzey
Date: Tue, 26 Feb 2013 18:52:24 +0000
Subject: kernel/declarations becomes a pure mli

 - constr_substituted and lazy_constr are now in a dedicated kernel/lazyconstr.ml
 - the functions that were in declarations.ml (mostly substitution utilities
   and hashcons) are now in kernel/declareops.ml

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16250 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/nativecode.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'kernel/nativecode.ml')

diff --git a/kernel/nativecode.ml b/kernel/nativecode.ml
index 7b878c53ef..932b490e35 100644
--- a/kernel/nativecode.ml
+++ b/kernel/nativecode.ml
@@ -1319,7 +1319,7 @@ and compile_named env auxdefs id =
 let compile_constant env prefix con body =
   match body with
   | Def t ->
-      let t = Declarations.force t in
+      let t = Lazyconstr.force t in
       let code = lambda_of_constr env t in
       let code, name =
         if is_lazy t then mk_lazy code, LinkedLazy prefix
@@ -1414,7 +1414,7 @@ let rec compile_deps env prefix ~interactive init t =
       then init
       else
       let comp_stack, (mind_updates, const_updates) = match cb.const_body with
-        | Def t -> compile_deps env prefix ~interactive init (Declarations.force t)
+        | Def t -> compile_deps env prefix ~interactive init (Lazyconstr.force t)
         | _ -> init
       in
       let code, name = compile_constant env prefix c cb.const_body in
@@ -1429,7 +1429,7 @@ let compile_constant_field env prefix con (code, symb, (mupds, cupds)) cb =
   let acc = (code, (mupds, cupds)) in
   match cb.const_body with
   | Def t ->
-    let t = Declarations.force t in
+    let t = Lazyconstr.force t in
     let (code, (mupds, cupds)) = compile_deps env prefix ~interactive:false acc t in
     let (gl, name) = compile_constant env prefix con cb.const_body in
     let cupds = Cmap_env.add con (cb.const_native_name, name) cupds in
-- 
cgit v1.2.3