diff options
| author | Thomas White <taw@physics.org> | 2021-05-20 20:58:56 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2021-05-20 20:58:56 +0200 |
| commit | 0c7c05b20256d5cf31ac829c788326bbaef5c2ec (patch) | |
| tree | 08095e37b24ce7d3477d4f4f7dc163cae2d5f924 /guile/starlet/fixture.scm | |
| parent | 417ebc04afe1fb98c6df4480be8725877697069a (diff) | |
Add get-fixture-attrs
Diffstat (limited to 'guile/starlet/fixture.scm')
| -rw-r--r-- | guile/starlet/fixture.scm | 7 |
1 files changed, 4 insertions, 3 deletions
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>)) |