diff options
| author | David Thompson <dthompson2@worcester.edu> | 2018-08-25 22:26:08 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2018-08-25 22:26:08 -0400 |
| commit | d772754dd35ec06076f01b78abb3ebc01211e6e4 (patch) | |
| tree | 74837c8dac757aed76ff588f06ae3eb2f46038fe | |
| parent | 01c93a1ebe9e5648a73025d5356d9cee72c7464d (diff) | |
node: Fix child-ref.
| -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." |