aboutsummaryrefslogtreecommitdiff
path: root/guile/starlet/fixture.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guile/starlet/fixture.scm')
-rw-r--r--guile/starlet/fixture.scm11
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)