diff options
| -rw-r--r-- | sly/scene.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/sly/scene.scm b/sly/scene.scm index d133d37..b523c72 100644 --- a/sly/scene.scm +++ b/sly/scene.scm @@ -62,7 +62,9 @@ (recompute-transform! node 0) node)) -(define scene-node make-scene-node) +(define-syntax-rule (scene-node (field val) ...) + (apply make-scene-node + (append (list (symbol->keyword 'field) val) ...))) (define (scene-node-dirty? node) (define (different? a b) @@ -73,7 +75,7 @@ (different? scene-node-rotation scene-node-prev-rotation))) (define (scene-root . children) - (scene-node #:children children)) + (make-scene-node #:children children)) (define (update-scene-node node) (signal-let ((node node)) |