[r2003-11-26 16:21:27 by szach] added comment pointing out a bug with anyType builtin

Original author: szach
Date: 2003-11-26 16:21:27+00:00

schema/schema_builtin.ml

@@ -422,7 +422,7 @@ let fill () = (* fill "builtins" hashtbl *)
 
   reg "anySimpleType"
     (primitive "anySimpleType", Builtin_defs.string, validate_string);
-  alias "anyType" "anySimpleType";
+  alias "anyType" "anySimpleType";  (* TODO BUG HERE *)
   reg "string"
     (primitive "string", Builtin_defs.string, validate_string);
   reg "decimal"