diff options
-rw-r--r-- | guile/nanolight/state.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guile/nanolight/state.scm b/guile/nanolight/state.scm index 5684b57..3c4a9df 100644 --- a/guile/nanolight/state.scm +++ b/guile/nanolight/state.scm @@ -1,6 +1,6 @@ (define-module (nanolight state) #:use-module (oop goops) - #:export (print-state define-state exec-state + #:export (print-state define-state exec-state! merge-states merge-rule-htp merge-rule-ltp merge-htp merge-ltp int flash pan tilt @@ -100,7 +100,7 @@ ; Execute the state, i.e. apply it to the physical lighting rig -(define (exec-state state) +(define (exec-state! state) (for-each (lambda (a) (assign-attr! |