diff options
| author | Thomas White <taw@physics.org> | 2023-06-18 20:25:01 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2023-06-18 20:26:11 +0200 |
| commit | 70e530da986679854a3cf3158aa2d60611f134ac (patch) | |
| tree | 3c8207e0145e346ad5bcab0120b350620935bee7 | |
| parent | 810d1d49c2f9ba187ee9934234ca4553c2cc421c (diff) | |
Remove vestigial fixture friendly name stuff
| -rw-r--r-- | guile/starlet/engine.scm | 10 | ||||
| -rw-r--r-- | 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 |