Commit 32a594cb authored by Pietro Abate's avatar Pietro Abate
Browse files

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

Original author: afrisch
Date: 2005-02-25 09:38:04+00:00
parent 6773b2fd
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment