[r2005-04-21 07:21:04 by afrisch] Empty log message

Original author: afrisch
Date: 2005-04-21 07:21:04+00:00

schema/schema_parser.ml

@@ -568,7 +568,7 @@ let schema_of_uri uri =
 
   let check_redef n table kind =
     let name = get_name n in
-    if (QTable.mem elts name) then
+    if (QTable.mem table name) then
       error ("Redefinition of " ^ kind ^ " " ^ 
 			  Ns.QName.to_string name)
     else name
@@ -576,11 +576,11 @@ let schema_of_uri uri =
   in
   let rec register n = function
     | "xsd:element" ->
-	let name = check_redef n elts "element" in
+	let name = check_redef n elts_elems "element" in
 	QTable.add elts_elems name n;
 	todo := (fun () -> ignore (resolve_elt name)):: !todo
     | ("xsd:simpleType" | "xsd:complexType") as s ->
-	let name = check_redef n elts "type" in
+	let name = check_redef n typs "type" in
 	let l = if s="xsd:simpleType" then lazy (Simple (parse_simple_type n))
 	else lazy (parse_complex_type_def n) in
 	QTable.add typs name l