avoid compiler warning

This commit is contained in:
Matthew Flatt 2016-01-01 14:33:16 -07:00
parent c0915b02b0
commit fd7b8b29ea

View File

@ -779,6 +779,7 @@ get_bucket (Scheme_Bucket_Table *table, const char *key, int add, Scheme_Bucket
lkey = PTR_TO_LONG((Scheme_Object *)key);
h = lkey & mask;
h2 = (lkey >> 1) & mask;
ekey = NULL;
}
h2 |= 0x1;