suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix struct type property propagation when the parent type has > 5 properties

Browse Source 
svn: r12970
This commit is contained in:
Matthew Flatt 2009-01-02 12:39:30 +00:00
parent 9564e24388
commit 9e42e5c876
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/struct.c
View File

@ -2951,7 +2951,7 @@ static Scheme_Object *_make_struct_type(Scheme_Object *basesym, const char *base
} else {
/* Duplicate the hash table: */
Scheme_Hash_Table *oht = (Scheme_Hash_Table *)struct_type->props;
for (i = oht->count; i--; ) {
for (i = oht->size; i--; ) {
if (oht->vals[i]) {
prop = oht->keys[i];
scheme_hash_set(ht, prop, oht->vals[i]);