avoid compiler warning

This commit is contained in:
Matthew Flatt 2015-06-24 07:17:39 +08:00
parent f7e1fcd557
commit 9931d5ef1c

View File

@ -3950,7 +3950,7 @@ Scheme_Hash_Tree *intersect_and_merge_types(Scheme_Hash_Tree *t_types, Scheme_Ha
return base_types;
if (f_types->count > t_types->count) {
Scheme_Object *swap = f_types;
Scheme_Hash_Tree *swap = f_types;
f_types = t_types;
t_types = swap;
}