Commit c237c799 authored by Pietro Abate's avatar Pietro Abate

[r2005-07-29 12:02:11 by afrisch] Bug fix in pretty printer

Original author: afrisch
Date: 2005-07-29 12:02:11+00:00
parent 58c3bea4
......@@ -168,6 +168,7 @@ let attr_group ag = attr_uses ag.ag_def
let load_schema schema_name uri =
let schema_name = schema_name ^ "." in
let log_schema_component kind name cd_type =
if not (Schema_builtin.is name) then begin
Types.Print.register_global schema_name name cd_type;
......
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