summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--starling/node.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/starling/node.scm b/starling/node.scm
index 2d4b1c3..00e24c6 100644
--- a/starling/node.scm
+++ b/starling/node.scm
@@ -145,14 +145,14 @@ represented as a ratio in the range [0, 1]."
(define-method (child-ref (parent <node>) name)
"Return the child node of PARENT whose name is NAME."
- (hash-ref (children-map parent) name))
+ (hashq-ref (children-map parent) name))
(define-syntax &
(syntax-rules ()
((_ parent child-name)
- (child-ref parent child-name))
+ (child-ref parent 'child-name))
((_ parent child-name . rest)
- (& (child-ref parent child-name) . rest))))
+ (& (child-ref parent 'child-name) . rest))))
(define-method (attach-to (new-parent <node>) . new-children)
"Attach NEW-CHILDREN to NEW-PARENT."