summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2018-08-27 17:48:44 -0400
committerDavid Thompson <dthompson2@worcester.edu>2018-08-27 17:48:44 -0400
commit29f34c1b375418ce837de588c1c9245d79cd3b74 (patch)
tree5bddff00113fe343e6e9c3699354ddb7851458ee
parent87b8688820fbc5de75a789279cb7dcd9ac3390ee (diff)
Fix node detach method.
-rw-r--r--starling/node.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/starling/node.scm b/starling/node.scm
index 7b0db3b..88790fa 100644
--- a/starling/node.scm
+++ b/starling/node.scm
@@ -186,8 +186,8 @@ represented as a ratio in the range [0, 1]."
(let ((p (parent node)))
(unless p
(error "node has no parent" node))
- (set! (children parent) (delq node (children parent)))
- (hashq-remove! (children-map parent) (name node))
+ (set! (children p) (delq node (children p)))
+ (hashq-remove! (children-map p) (name node))
;; Detaching deactives the node and all of its children.
(when (active? node)
(deactivate node))