From 0c7c05b20256d5cf31ac829c788326bbaef5c2ec Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Thu, 20 May 2021 20:58:56 +0200
Subject: Add get-fixture-attrs

---
 guile/starlet/fixture.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'guile')

diff --git a/guile/starlet/fixture.scm b/guile/starlet/fixture.scm
index 88e38e5..9f58f25 100644
--- a/guile/starlet/fixture.scm
+++ b/guile/starlet/fixture.scm
@@ -26,6 +26,7 @@
             get-fixture-name
             get-fixture-addr
             get-fixture-universe
+            get-fixture-attrs
             find-attr
             fixture?
             scanout-fixture
@@ -130,8 +131,8 @@
        #:home-value attr-home-value))))
 
 
-(define (get-attributes f)
-  (slot-ref f 'attributes))
+(define (get-fixture-attrs fix)
+  (slot-ref fix 'attributes))
 
 
 (define (fixture? f)
@@ -142,7 +143,7 @@
   (find (lambda (a)
           (eq? (get-attr-name a)
                attr-name))
-        (slot-ref fix 'attributes)))
+        (get-fixture-attrs fix)))
 
 
 (define-method (find-attr (fix <fixture>) (attr-name <colour-component-id>))
-- 
cgit v1.2.3