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; 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]; Scheme_Object *p = argv[1], *obj = argv[0];
mzlonglong pos; mzlonglong pos;