From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Fri, 31 Jul 2009 09:39:28 +0000 (+0000)
Subject: Serious bug fixed: uris were not refreshed when loading coercions.
X-Git-Tag: make_still_working~3584
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=a09f5b76d65deba858fbba1a8b6e8481702d2166;p=helm.git

Serious bug fixed: uris were not refreshed when loading coercions.
---

diff --git a/helm/software/components/grafite_engine/grafiteEngine.ml b/helm/software/components/grafite_engine/grafiteEngine.ml
index 5c418ac9d..c82fb457a 100644
--- a/helm/software/components/grafite_engine/grafiteEngine.ml
+++ b/helm/software/components/grafite_engine/grafiteEngine.ml
@@ -658,8 +658,13 @@ let basic_eval_ncoercion (name,t,s,d,p,a) status =
 ;;
 
 let inject_ncoercion =
- let basic_eval_ncoercion x ~refresh_uri_in_universe ~refresh_uri_in_term =
-  basic_eval_ncoercion x
+ let basic_eval_ncoercion (name,t,s,d,p,a) ~refresh_uri_in_universe
+  ~refresh_uri_in_term
+ =
+  let t = refresh_uri_in_term t in
+  let s = refresh_uri_in_term s in
+  let d = refresh_uri_in_term d in
+   basic_eval_ncoercion (name,t,s,d,p,a)
  in
   NRstatus.Serializer.register "ncoercion" basic_eval_ncoercion
 ;;