tree: circular notation support.

* lib.c (populate_obj_hash): Handle tree object.

* parser.c (circ_backpatch): Likewise.

1 files changed, 5 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index ef781a89..c0ad5c96 100644
--- a/lib.c
+++ b/lib.c
@@ -11808,6 +11808,11 @@ tail:
         val sn = car(iter);
         populate_obj_hash(slot(obj, sn), ctx);
       }
+    } else if (treep(obj)) {
+      val iter = tree_begin(obj);
+      val node;
+      while ((node = tree_next(iter)))
+        populate_obj_hash(key(node), ctx);
     }
     break;
   case FUN: