From febdf70a8e8f950767811d6a6aea8856ac167ff8 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 10 Sep 2018 17:57:11 -0400
Subject: node-2d: Export dirty! method.

* starling/node-2d.scm (dirty!): Convert to method and export it.
---
 starling/node-2d.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/starling/node-2d.scm b/starling/node-2d.scm
index 205bf41..260f9b9 100644
--- a/starling/node-2d.scm
+++ b/starling/node-2d.scm
@@ -61,6 +61,7 @@
             position
             rotation
             skew
+            dirty!
             pivot
             move-by
             move-to
@@ -237,7 +238,7 @@
   (world-matrix #:getter world-matrix #:init-form (make-identity-matrix4))
   (dirty-matrix? #:accessor dirty-matrix? #:init-form #t))
 
-(define (dirty! node)
+(define-method (dirty! (node <node-2d>))
   (set! (dirty-matrix? node) #t))
 
 (define-method (compute-matrices! (node <node-2d>))
-- 
cgit v1.2.3