diff options
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 d72aa88..21e9590 100644 --- a/guile/starlet/base.scm +++ b/guile/starlet/base.scm @@ -36,7 +36,8 @@ home-val intensity? state-find - get-attr-type)) + get-attr-type + fixture?)) (define-class <fixture-attribute> (<object>) (name @@ -86,6 +87,10 @@ #:getter get-scanout-func)) +(define (fixture? f) + (is-a? f <fixture>)) + + ;; A "state" is just a thin wrapper around a hash table ;; of (fixture . attribute) --> value (define-class <starlet-state> (<object>) |