From d772754dd35ec06076f01b78abb3ebc01211e6e4 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 25 Aug 2018 22:26:08 -0400 Subject: node: Fix child-ref. --- starling/node.scm | 6 +++--- 1 file 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 ) 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 ) . new-children) "Attach NEW-CHILDREN to NEW-PARENT." -- cgit v1.2.3