diff options
| author | Thomas White <taw@physics.org> | 2020-02-23 12:00:18 +0100 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2020-02-23 12:00:18 +0100 |
| commit | 9b62a3e1b54765699a5d865455147ee8166bba12 (patch) | |
| tree | 3ffd22b88012f01f03f541b88ab4fd75fbe89e0a | |
| parent | 9ecfd4bbe19d8ffea69e55412f205c0eada7aa7e (diff) | |
Use internal definition instead of letrec
| -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) |