Ensure interned_key is initialized

This commit is contained in:
Jon Zeppieri 2019-07-30 16:33:46 -04:00 committed by Matthew Flatt
parent 56f4267fa3
commit f797694931

View File

@ -3402,7 +3402,7 @@ static Scheme_Object *chaperone_hash_op(const char *who, Scheme_Object *o, Schem
key_wraps = scheme_make_raw_pair((Scheme_Object *)who, key_wraps);
if (mode == 0 || mode == 5) {
/* hash-ref or hash-ref-key */
Scheme_Object *interned_key;
Scheme_Object *interned_key = NULL;
if (SCHEME_HASHTP(o)) {
Scheme_Hash_Table *t = (Scheme_Hash_Table *)o;
if (t->mutex) scheme_wait_sema(t->mutex, 0);