Commit 0b91ebba authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2004-10-19 08:47:40 by afrisch] Give line for type/element loop error message

Original author: afrisch
Date: 2004-10-19 08:47:40+00:00
parent 99afe681
......@@ -596,8 +596,10 @@ class lazy_resolver =
method see (n: pxp_node) =
debug_print "lazy_resolver.see";
if NodeSet.mem n seen_nodes then
validation_error "Types/Elements loop";
seen_nodes <- NodeSet.add n seen_nodes
let line = match n#position with (_,l,_) -> l in
validation_error (sprintf "Types/Elements loop (line: %d)" line)
else
seen_nodes <- NodeSet.add n seen_nodes
method private find_global_component tag_pred name =
let basename = snd (Ns.split_qname name) 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