]> matita.cs.unibo.it Git - helm.git/commitdiff
added fake uri when the univ is anon
authorEnrico Tassi <enrico.tassi@inria.fr>
Wed, 30 Apr 2008 19:04:28 +0000 (19:04 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Wed, 30 Apr 2008 19:04:28 +0000 (19:04 +0000)
helm/software/components/cic/cicUniv.ml

index beb8a233fb58b3f56fb516131ca1b14188182bf0..c8a8660b3bade7c485670c89087291f5a222944d 100644 (file)
@@ -630,7 +630,7 @@ let write_xml_of_ugraph filename (m,_,_) l =
 
 let univno = fst
 let univuri = function 
-  | _,None -> assert false
+  | _,None -> UriManager.uri_of_string "cic:/fake.con"
   | _,Some u -> u