diff options
Diffstat (limited to 'guile/starlet/base.scm')
-rw-r--r-- | guile/starlet/base.scm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm index 9caba9e..f0dead1 100644 --- a/guile/starlet/base.scm +++ b/guile/starlet/base.scm @@ -28,7 +28,7 @@ attr-boolean attr-list current-state - define-state + lighting-state at)) (define-class <fixture-attribute> (<object>) @@ -405,13 +405,12 @@ (register-state! (current-state)) -(define-syntax define-state +(define-syntax lighting-state (syntax-rules () - ((_ state-name body ...) - (define state-name - (parameterize ((current-state (make-empty-state))) - body ... - (current-state)))))) + ((_ body ...) + (parameterize ((current-state (make-empty-state))) + body ... + (current-state))))) (define-syntax at |