fix return type of hash_table_index

This commit is contained in:
Stephen Chang 2016-01-26 10:26:51 -05:00
parent e8d34dd156
commit 86a9c2e493

View File

@ -2836,7 +2836,7 @@ Scheme_Object *scheme_hash_table_iterate_next(int argc, Scheme_Object *argv[])
return NULL;
}
static Scheme_Object *hash_table_index(const char *name, int argc, Scheme_Object *argv[], Scheme_Object **_k, Scheme_Object **_v)
static int hash_table_index(const char *name, int argc, Scheme_Object *argv[], Scheme_Object **_k, Scheme_Object **_v)
{
Scheme_Object *p = argv[1], *obj = argv[0];
mzlonglong pos;