diff options
author | Thomas White <taw@physics.org> | 2020-10-24 16:54:50 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2020-10-24 16:54:50 +0200 |
commit | 8726a5c44c16503697197d089d3880218d61df83 (patch) | |
tree | 35cd1914079e828a789d9173a9f442ea7a911aaf /guile/starlet/base.scm | |
parent | cd1e43183ac01466ecb91709671046a22036acf7 (diff) |
Match cue-part attributes by name as well
Diffstat (limited to 'guile/starlet/base.scm')
-rw-r--r-- | guile/starlet/base.scm | 7 |
1 files changed, 6 insertions, 1 deletions
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>) |