- if (!cht_initd) {
- cht_initd= 1;
- Tcl_RegisterObjType(&cht_tabledataid_nearlytype);
- Tcl_RegisterObjType(&cht_enum_nearlytype);
- Tcl_RegisterObjType(&cht_enum1_nearlytype);
- }
-
- if (donep && !*donep) {
- *donep= 1;
- va_start(al, donep);
- while ((ot= va_arg(al, Tcl_ObjType*)))
- Tcl_RegisterObjType(ot);
- }
+ if (prepared) return;
+ Tcl_RegisterObjType(&cht_tabledataid_nearlytype);
+ Tcl_RegisterObjType(&cht_enum_nearlytype);
+ Tcl_RegisterObjType(&cht_enum1_nearlytype);
+ prepared= 1;
+}