X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl.git;a=blobdiff_plain;f=cdb%2Flookup.c;h=50d5598a3ff20fa719432419d7000121ed580b66;hp=6245384eed1c8c66d9c4543a3227ffde867a4a9e;hb=dea4e335a78d52ed5f4b71908aa8fcbf392e96be;hpb=f9d1e7ec70c00e8ca2a55983d72c314bcee74d4e

diff --git a/cdb/lookup.c b/cdb/lookup.c
index 6245384..50d5598 100644
--- 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))