Commit ca40bdfc authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2005-02-17 17:05:14 by afrisch] Bugs

Original author: afrisch
Date: 2005-02-17 17:05:14+00:00
parent 9ff2240a
......@@ -82,7 +82,7 @@ let rec normalize_simple_type = function
| Primitive _ as st ->
let b = ref (Simple st) in
Derived (name,Atomic b,new_facets,b))
| _ -> assert false
| st -> st
let name_of_element_declaration elt = elt.elt_name
let name_of_simple_type_definition = function
......
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