Commit 741c9667 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2004-10-21 20:56:22 by afrisch] Empty log message

Original author: afrisch
Date: 2004-10-21 20:56:22+00:00
parent f2bb44af
......@@ -169,7 +169,7 @@ let qnames_attr attr found ?notfound ((env,n) as arg) =
let cst x _ = x
let local (_,l) = U.get_str l
let top_name = norm_attr _name mk_qname
let opt_name = norm_attr _name mk_qname_option ~notfound:(cst None)
......@@ -253,7 +253,7 @@ and union arg =
VUnion member_types
and toplevel ((env,n) as arg) =
match U.get_str (snd n.tag) with
match local n.tag with
| "attribute" ->
set_ref arg resolve_attribute toplevel_attribute_declaration
| "element" ->
......@@ -264,7 +264,7 @@ and schema n =
let arg = (),n in
let qual a =
norm_attr a
(function (_,v) -> U.get_str v = "qualified")
(fun v -> local v = "qualified")
~notfound:(cst false)
arg in
let env = {
......
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