summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2019-10-07 06:32:50 -0700
committerKaz Kylheku <kaz@kylheku.com>2019-10-07 06:32:50 -0700
commitf51763c43fc9a72dfa97052c289dc2aab4272d7a (patch)
treedc4448ae57493a379e0551e46bd99f2e2ce775d6
parent7ac6eb83224bbf3a8f686b89d09770d39fae64c9 (diff)
downloadtxr-f51763c43fc9a72dfa97052c289dc2aab4272d7a.tar.gz
txr-f51763c43fc9a72dfa97052c289dc2aab4272d7a.tar.bz2
txr-f51763c43fc9a72dfa97052c289dc2aab4272d7a.zip
circle notation: bugfix for hash_userdata.
* parser.c (circ_backpatch): Fix neglect to recurse into hash table's userdata object to look for circle notation references.
-rw-r--r--parser.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/parser.c b/parser.c
index d8619832..7661d60c 100644
--- a/parser.c
+++ b/parser.c
@@ -367,6 +367,9 @@ tail:
val ru = patch_ref(p, u);
if (ru)
set_hash_userdata(obj, ru);
+ else
+ circ_backpatch(p, &cs, u);
+
if (p->circ_count) {
val iter = hash_begin(obj);
val cell;