diff options
| -rw-r--r-- | starling/node-2d.scm | 12 |
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>)) |