diff options
author | Thomas White <taw@physics.org> | 2020-06-06 21:43:48 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2020-06-06 21:43:48 +0200 |
commit | b1e6d969b1a6980f0f6ad69c28af18cd7f207cf7 (patch) | |
tree | 0cddf8f52994c078c7c60a03b698e88080b0ffb3 | |
parent | 51845b710d404aa13bddf3de049789891f1fcbf1 (diff) |
No need for a definition here
-rw-r--r-- | guile/nanolight/fixture.scm | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/guile/nanolight/fixture.scm b/guile/nanolight/fixture.scm index 78fb596..96e4820 100644 --- a/guile/nanolight/fixture.scm +++ b/guile/nanolight/fixture.scm @@ -145,20 +145,17 @@ (assq-ref universes universe) addr (round-dmx value))) - (define (run-translator fix attr set-dmx) - (let ((trans (translator attr))) - (trans - (universe fix) - (start-addr fix) - ((value-func attr)) - set-dmx))) - ;; Scan out all fixtures (for-each (lambda (fix) ;; Scan out one fixture (for-each (lambda (attr) - (run-translator fix attr set-dmx)) + (let ((trans (translator attr))) + (trans + (universe fix) + (start-addr fix) + ((value-func attr)) + set-dmx))) (attributes fix))) fixtures)) |