diff options
| -rw-r--r-- | starling/node.scm | 6 |
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." |