From aed772ac4e9c8d6ff641013c05645c3d3614d997 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 11 Oct 2019 08:29:04 -0700
Subject: parser: use eq-based hash for circular notation.

* parser.c (parser_circ_def): Instantiate p->circ_ref_hash as
eq-based hash, not eql-based.
---
 parser.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'parser.c')

diff --git a/parser.c b/parser.c
index 03e99750..b05892bb 100644
--- a/parser.c
+++ b/parser.c
@@ -456,7 +456,7 @@ void parser_resolve_circ(parser_t *p)
 void parser_circ_def(parser_t *p, val num, val expr)
 {
   if (!p->circ_ref_hash) {
-    p->circ_ref_hash = make_hash(nil, nil, nil);
+    p->circ_ref_hash = make_eq_hash(nil, nil);
     setcheck(p->parser, p->circ_ref_hash);
   }
 
-- 
cgit v1.2.3