diff options
Diffstat (limited to 'src/init.scm')
-rw-r--r-- | src/init.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/init.scm b/src/init.scm index 91d261e..58d6bd6 100644 --- a/src/init.scm +++ b/src/init.scm @@ -23,14 +23,14 @@ (define patch-many (lambda (fixcls prefix n universe start-addr) - (letrec ([f (lambda (i) - (patch-fixture (symbol-append prefix (string->symbol (number->string i))) - fixcls universe (+ start-addr (- i 1))) - (if (< i n) - (f (+ i 1))))]) - (if fixcls - (f 1) - (display "Fixture class not available\n"))))) + (define f (lambda (i) + (patch-fixture (symbol-append prefix (string->symbol (number->string i))) + fixcls universe (+ start-addr (- i 1))) + (if (< i n) + (f (+ i 1))))) + (if fixcls + (f 1) + (display "Fixture class not available\n")))) (patch-many (find-fixture-class fixture-class-library "Generic dimmer") 'dim 48 0 1) |