From 469fcf61ab22e71800c9378ea51e9405c984afbc Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sat, 6 Jun 2020 21:44:07 +0200 Subject: exec-state -> exec-state! This function is about as side-effect-y as they can be: it touches the physical lighting rig, and so has potential to burn down buildings. --- guile/nanolight/state.scm | 4 ++-- 1 file 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! -- cgit v1.2.3