Fixing bug in C reader for hasheqv literals
This commit is contained in:
parent
f8f3ddbc94
commit
599ffacd47
|
@ -2181,7 +2181,7 @@ static Scheme_Object *resolve_references(Scheme_Object *obj,
|
||||||
int i;
|
int i;
|
||||||
if (scheme_is_hash_tree_equal(obj))
|
if (scheme_is_hash_tree_equal(obj))
|
||||||
kind = 1;
|
kind = 1;
|
||||||
else if (scheme_is_hash_tree_equal(obj))
|
else if (scheme_is_hash_tree_eqv(obj))
|
||||||
kind = 2;
|
kind = 2;
|
||||||
else
|
else
|
||||||
kind = 0;
|
kind = 0;
|
||||||
|
|
Loading…
Reference in New Issue
Block a user