1 files changed, 9 insertions, 9 deletions
diff --git a/guile/nanolight/fixture.scm b/guile/nanolight/fixture.scm
index fbaecb2..78fb596 100644
--- a/guile/nanolight/fixture.scm
+++ b/guile/nanolight/fixture.scm
@@ -5,7 +5,7 @@
              make-output patch-fixture
              fixture-string fixture-address-string
              percent->dmxval chan
-             get-start-addr get-universe
+             start-addr universe
              assign-attr!))
 
 (use-modules (srfi srfi-1))
@@ -54,19 +54,19 @@
   (universe
     #:init-value #f
     #:init-keyword #:uni
-    #:getter get-universe
+    #:getter universe
     #:setter set-universe!)
 
   (start-addr
     #:init-value #f
     #:init-keyword #:sa
-    #:getter get-start-addr
+    #:getter start-addr
     #:setter set-start-addr!)
 
   (friendly-name
     #:init-value "Fixture"
     #:init-keyword #:friendly-name
-    #:getter get-friendly-name
+    #:getter friendly-name
     #:setter set-friendly-name!))
 
 
@@ -89,14 +89,14 @@
 
 (define (fixture-address-string fix)
   (string-append
-    (number->string (get-universe fix))
+    (number->string (universe fix))
     "."
-    (number->string (get-start-addr fix))))
+    (number->string (start-addr fix))))
 
 
 (define (fixture-string fix)
   (string-append
-    (get-friendly-name fix)
+    (friendly-name fix)
     " at "
     (fixture-address-string fix)))
 
@@ -148,8 +148,8 @@
         (define (run-translator fix attr set-dmx)
           (let ((trans (translator attr)))
             (trans
-              (get-universe fix)
-              (get-start-addr fix)
+              (universe fix)
+              (start-addr fix)
               ((value-func attr))
               set-dmx)))