diff options
| author | Thomas White <taw@physics.org> | 2020-06-06 21:44:07 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2020-06-06 21:44:07 +0200 |
| commit | 469fcf61ab22e71800c9378ea51e9405c984afbc (patch) | |
| tree | c1cb85dd5f41b3640995e1f88347f40f9a2287ea | |
| parent | b1e6d969b1a6980f0f6ad69c28af18cd7f207cf7 (diff) | |
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.
| -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! |