From 8726a5c44c16503697197d089d3880218d61df83 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sat, 24 Oct 2020 16:54:50 +0200
Subject: Match cue-part attributes by name as well

---
 guile/starlet/base.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'guile/starlet/base.scm')

diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm
index 21e9590..4cb9716 100644
--- a/guile/starlet/base.scm
+++ b/guile/starlet/base.scm
@@ -37,7 +37,8 @@
             intensity?
             state-find
             get-attr-type
-            fixture?))
+            fixture?
+            fixture-attribute?))
 
 (define-class <fixture-attribute> (<object>)
   (name
@@ -91,6 +92,10 @@
   (is-a? f <fixture>))
 
 
+(define (fixture-attribute? f)
+  (is-a? f <fixture-attribute>))
+
+
 ;; A "state" is just a thin wrapper around a hash table
 ;; of (fixture . attribute)  -->  value
 (define-class <starlet-state> (<object>)
-- 
cgit v1.2.3