From 0279e88fb287a752bb26872502fe3a93e7b6e828 Mon Sep 17 00:00:00 2001
From: handa <handa>
Date: Fri, 12 Oct 2007 04:52:25 +0000
Subject: [PATCH] (mchar_define_property): Call mdatabase_find directly.
 (mchar_get_prop): Call mdatabase_add directly.
 (mchar_put_prop): Call mdatabase_load directly.
 (mchar_get_prop_table): Likewise.

---
 src/character.c |   13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/src/character.c b/src/character.c
index 96ce01e..abc3c39 100644
--- a/src/character.c
+++ b/src/character.c
@@ -407,10 +407,9 @@ mchar_define_property (const char *name, MSymbol type)
   MSymbol key = msymbol (name);
   void *mdb;
 
-  if (mdatabase__finder)
-    mdb = (*mdatabase__finder) (Mchar_table, type, key, Mnil);
-  else
-    mdb = NULL;
+  mdb = mdatabase_find (Mchar_table, type, key, Mnil);
+  if (! mdb)
+    return Mnil;
   mchar__define_prop (key, type, mdb);
   return key;
 }
@@ -459,7 +458,7 @@ mchar_get_prop (int c, MSymbol key)
     return NULL;
   if (record->mdb)
     {
-      record->table = (*mdatabase__loader) (record->mdb);
+      record->table = mdatabase_load (record->mdb);
       if (! record->table)
 	MERROR (MERROR_DB, NULL);
       record->mdb = NULL;
@@ -506,7 +505,7 @@ mchar_put_prop (int c, MSymbol key, void *val)
     return -1;
   if (record->mdb)
     {
-      record->table = (*mdatabase__loader) (record->mdb);
+      record->table = mdatabase_load (record->mdb);
       if (! record->table)
 	MERROR (MERROR_DB, -1);
       record->mdb = NULL;
@@ -553,7 +552,7 @@ mchar_get_prop_table (MSymbol key, MSymbol *type)
     return NULL;
   if (record->mdb)
     {
-      record->table = (*mdatabase__loader) (record->mdb);
+      record->table = mdatabase_load (record->mdb);
       if (! record->table)
 	MERROR (MERROR_DB, NULL);
       record->mdb = NULL;
-- 
1.7.10.4