diff options
| author | David Thompson <dthompson2@worcester.edu> | 2018-08-27 17:48:44 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2018-08-27 17:48:44 -0400 |
| commit | 29f34c1b375418ce837de588c1c9245d79cd3b74 (patch) | |
| tree | 5bddff00113fe343e6e9c3699354ddb7851458ee | |
| parent | 87b8688820fbc5de75a789279cb7dcd9ac3390ee (diff) | |
Fix node detach method.
| -rw-r--r-- | starling/node.scm | 4 |
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)) |