diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2019-10-11 08:29:04 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2019-10-11 08:29:04 -0700 |
commit | aed772ac4e9c8d6ff641013c05645c3d3614d997 (patch) | |
tree | 5417108803f043da21aabb12fbb2f176991a9f04 | |
parent | 860f0d04fd5f60d9d3e85debd2d158d5073da568 (diff) | |
download | txr-aed772ac4e9c8d6ff641013c05645c3d3614d997.tar.gz txr-aed772ac4e9c8d6ff641013c05645c3d3614d997.tar.bz2 txr-aed772ac4e9c8d6ff641013c05645c3d3614d997.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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); } |