From b1e6d969b1a6980f0f6ad69c28af18cd7f207cf7 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sat, 6 Jun 2020 21:43:48 +0200 Subject: No need for a definition here --- guile/nanolight/fixture.scm | 15 ++++++--------- 1 file 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)) -- cgit v1.2.3