From 599ffacd474d422a7cbaa53fecd50452b79feef2 Mon Sep 17 00:00:00 2001 From: Blake Johnson Date: Tue, 27 Jul 2010 13:30:07 -0600 Subject: [PATCH] Fixing bug in C reader for hasheqv literals --- src/racket/src/read.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/racket/src/read.c b/src/racket/src/read.c index 0b797a49a5..fdce75a1f6 100644 --- a/src/racket/src/read.c +++ b/src/racket/src/read.c @@ -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;