[r2004-10-21 20:56:22 by afrisch] Empty log message

Original author: afrisch
Date: 2004-10-21 20:56:22+00:00

schema/schema_import.ml

@@ -169,7 +169,7 @@ let qnames_attr attr found ?notfound ((env,n) as arg) =
 
 let cst x _ = x
 
-
+let local (_,l) = U.get_str l
 
 let top_name = norm_attr _name mk_qname
 let opt_name = norm_attr _name mk_qname_option ~notfound:(cst None)
@@ -253,7 +253,7 @@ and union arg =
   VUnion member_types
 
 and toplevel ((env,n) as arg) =
-  match U.get_str (snd n.tag) with
+  match local n.tag with
     | "attribute" -> 
 	set_ref arg resolve_attribute toplevel_attribute_declaration
     | "element" ->
@@ -264,7 +264,7 @@ and schema n =
   let arg = (),n in
   let qual a =
     norm_attr a 
-      (function (_,v) -> U.get_str v = "qualified") 
+      (fun v -> local v = "qualified") 
       ~notfound:(cst false)
       arg in
   let env = {