Commit e6a32b04 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 12751b7b
...@@ -293,7 +293,7 @@ let rec validate_any_type ctx = ...@@ -293,7 +293,7 @@ let rec validate_any_type ctx =
let validate_wildcard ctx w = let validate_wildcard ctx w =
let qname = expect_any_start_tag ctx in 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" then error (sprintf "Tag %s is not accepted by the wildcard"
(Ns.QName.to_string qname)); (Ns.QName.to_string qname));
let (attrs, content) = validate_any_type ctx in 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