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 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>) |