From 9b62a3e1b54765699a5d865455147ee8166bba12 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 23 Feb 2020 12:00:18 +0100
Subject: Use internal definition instead of letrec

---
 src/init.scm | 16 ++++++++--------
 1 file 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)
-- 
cgit v1.2.3