From 70e530da986679854a3cf3158aa2d60611f134ac Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 18 Jun 2023 20:25:01 +0200
Subject: Remove vestigial fixture friendly name stuff

---
 guile/starlet/engine.scm  | 10 ++++------
 guile/starlet/fixture.scm |  6 ------
 2 files changed, 4 insertions(+), 12 deletions(-)

diff --git a/guile/starlet/engine.scm b/guile/starlet/engine.scm
index 28f4321..fcd63a5 100644
--- a/guile/starlet/engine.scm
+++ b/guile/starlet/engine.scm
@@ -87,12 +87,11 @@
 (define* (patch-real name
                      class
                      start-addr
-                     #:key (universe 0) (friendly-name "Fixture"))
+                     #:key (universe 0))
   (let ((new-fixture (make class
                            #:name name
                            #:sa start-addr
-                           #:uni universe
-                           #:friendly-name friendly-name)))
+                           #:uni universe)))
     (atomic-box-set! fixtures (cons new-fixture
                                     (atomic-box-ref fixtures)))
     new-fixture))
@@ -108,13 +107,12 @@
 (define* (patch-many-real name
                           class
                           start-addrs
-                          #:key (universe 0) (friendly-name "Fixture"))
+                          #:key (universe 0))
   (map (lambda (start-addr n)
          (patch-real `(list-ref ,name ,n)
                      class
                      start-addr
-                     #:universe universe
-                     #:friendly-name friendly-name))
+                     #:universe universe))
        start-addrs
        (iota (length start-addrs))))
 
diff --git a/guile/starlet/fixture.scm b/guile/starlet/fixture.scm
index dfb5381..524d78b 100644
--- a/guile/starlet/fixture.scm
+++ b/guile/starlet/fixture.scm
@@ -96,12 +96,6 @@
     #:getter get-fixture-addr
     #:setter set-fixture-addr!)
 
-  (friendly-name
-    #:init-value "Fixture"
-    #:init-keyword #:friendly-name
-    #:getter get-fixture-friendly-name
-    #:setter set-fixture-friendly-name!)
-
   (scanout-func
     #:init-value (lambda (universe start-addr value set-dmx) #f)
     #:init-keyword #:scanout-func
-- 
cgit v1.2.3