summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--starling/node-2d.scm12
1 files changed, 6 insertions, 6 deletions
diff --git a/starling/node-2d.scm b/starling/node-2d.scm
index bf7fe3f..6a33ed3 100644
--- a/starling/node-2d.scm
+++ b/starling/node-2d.scm
@@ -254,9 +254,9 @@
;; Draw scene from the viewpoint of each camera.
(for-each (lambda (view)
(with-camera (camera view)
- (for-each (lambda (child)
- (render-tree child alpha))
- (children canvas))))
+ (for-each-child (lambda (child)
+ (render-tree child alpha))
+ canvas)))
(views canvas))
(render canvas alpha))
@@ -450,9 +450,9 @@
(set! (dirty-matrix? node) #f)
;; If the parent is dirty, all the children need to be marked as
;; dirty, too.
- (for-each (lambda (node)
- (set! (dirty-matrix? node) #t))
- (children node))))
+ (for-each-child (lambda (child)
+ (set! (dirty-matrix? child) #t))
+ node)))
(next-method))
(define-method (activate (node <node-2d>))