summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2019-10-11 08:29:04 -0700
committerKaz Kylheku <kaz@kylheku.com>2019-10-11 08:29:04 -0700
commit0464a2e48a9b21ff907c8ef3e56d578aa1614662 (patch)
tree5417108803f043da21aabb12fbb2f176991a9f04
parent93794b06f2e24c887e91b7264ca06b4d6a97c195 (diff)
downloadtxr-0464a2e48a9b21ff907c8ef3e56d578aa1614662.tar.gz
txr-0464a2e48a9b21ff907c8ef3e56d578aa1614662.tar.bz2
txr-0464a2e48a9b21ff907c8ef3e56d578aa1614662.zip
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.
-rw-r--r--parser.c2
1 files changed, 1 insertions, 1 deletions
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);
}