diff options
Diffstat (limited to 'guile/starlet/fixture.scm')
-rw-r--r-- | guile/starlet/fixture.scm | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/guile/starlet/fixture.scm b/guile/starlet/fixture.scm index 2711f9e..dfb5381 100644 --- a/guile/starlet/fixture.scm +++ b/guile/starlet/fixture.scm @@ -168,21 +168,14 @@ (is-a? f <fixture>)) -(define-method (find-attr (fix <fixture>) (attr-name <starlet-attribute>)) +(define (find-attr fix attr-name) (find (lambda (a) (eq? (get-attr-name a) attr-name)) (get-fixture-attrs fix))) -(define-method (find-attr fix attr-name) - (raise-exception - (make-exception - (make-exception-with-message "Invalid parameters") - (make-exception-with-irritants fix)))) - - -(define-method (get-attr-home-val (fix <fixture>) (attr <starlet-attribute>)) +(define (get-attr-home-val fix attr) (let ((attr-obj (find-attr fix attr))) (if attr-obj (attr-home-value attr-obj) |