[r2003-11-26 16:19:42 by szach] bugfix: schema attributes are now not qualified by default

Original author: szach
Date: 2003-11-26 16:19:42+00:00

typing/typer.ml

@@ -1444,7 +1444,7 @@ module Schema_converter =
           end else
             regexp
 
-    and regexp_of_particle ~schema (min, max, term) =
+    and regexp_of_particle ~schema (min, max, term, _) =
       mk_len_regexp ?min:(Some min) ?max (regexp_of_term ~schema term)
 
       (** @return a pair composed by a type for the attributes (a record) and a
@@ -1472,7 +1472,7 @@ module Schema_converter =
               | _ -> cd_type_of_simple_type ~schema st
             in
             let r = if required then r else POptional r in
-            (LabelPool.mk (schema.targetNamespace, name), r))
+            (LabelPool.mk (Ns.empty, name), r))
           attr_uses in
       PRecord (false, LabelMap.from_list_disj fields)