Fixing bug in C reader for hasheqv literals

This commit is contained in:
Blake Johnson 2010-07-27 13:30:07 -06:00 committed by Jay McCarthy
parent f8f3ddbc94
commit 599ffacd47

View File

@ -2181,7 +2181,7 @@ static Scheme_Object *resolve_references(Scheme_Object *obj,
int i;
if (scheme_is_hash_tree_equal(obj))
kind = 1;
else if (scheme_is_hash_tree_equal(obj))
else if (scheme_is_hash_tree_eqv(obj))
kind = 2;
else
kind = 0;