Un-GOOPS some procedures

These don't need to be generic any more, now that we only have one type
of attribute.

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)