new initialisation arrangements are sane and consistent

[chiark-tcl.git] / cdb / lookup.c

diff --git a/cdb/lookup.c b/cdb/lookup.c
index 6245384eed1c8c66d9c4543a3227ffde867a4a9e..50d5598a3ff20fa719432419d7000121ed580b66 100644 (file)
--- a/cdb/lookup.c
+++ b/cdb/lookup.c
@@ -62,8 +62,6 @@ int cht_cdb_lookup_cdb(Tcl_Interp *ip, struct cdb *cdb,
   return TCL_OK;
 }
 
-
-extern int Chiark_tcl_cdb_Init(Tcl_Interp *ip); /* called by Tcl's "load" */
-int Chiark_tcl_cdb_Init(Tcl_Interp *ip) {
-  return cht_initextension(ip, cht_cdbtoplevel_entries, 0);
-}
+CHT_INIT(cdb,
+        CHTI_OTHER(hbytes),
+        CHTI_COMMANDS(cht_cdbtoplevel_entries))