[r2005-02-25 09:38:04 by afrisch] Missing not

Original author: afrisch
Date: 2005-02-25 09:38:04+00:00

schema/schema_validator.ml

@@ -293,7 +293,7 @@ let rec validate_any_type ctx =
 
 let validate_wildcard ctx w =
   let qname = expect_any_start_tag ctx in
-  if Atoms.contains (Atoms.V.of_qname qname) w.wild_first
+  if not (Atoms.contains (Atoms.V.of_qname qname) w.wild_first)
   then error (sprintf "Tag %s is not accepted by the wildcard" 
 		(Ns.QName.to_string qname));
   let (attrs, content) = validate_any_type ctx in