diff options
Diffstat (limited to 'guile/starlet/fixture.scm')
-rw-r--r-- | guile/starlet/fixture.scm | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/guile/starlet/fixture.scm b/guile/starlet/fixture.scm index 856a67d..2711f9e 100644 --- a/guile/starlet/fixture.scm +++ b/guile/starlet/fixture.scm @@ -175,10 +175,6 @@ (get-fixture-attrs fix))) -(define-method (find-attr (fix <fixture>) (attr-name <colour-component-id>)) - (find-attr fix colour)) - - (define-method (find-attr fix attr-name) (raise-exception (make-exception @@ -193,12 +189,6 @@ 'fixture-does-not-have-attribute))) -(define-method (get-attr-home-val (fix <fixture>) (attr <colour-component-id>)) - (extract-colour-component - (get-attr-home-val fix colour) - attr)) - - (define (continuous-attribute? aobj) (eq? 'continuous (get-attr-type aobj))) |