Add fallback find-attr which gives a meaningful error message

1 files changed, 8 insertions, 0 deletions

diff --git a/guile/starlet/fixture.scm b/guile/starlet/fixture.scm
index 1cda58d..5ef3492 100644
--- a/guile/starlet/fixture.scm
+++ b/guile/starlet/fixture.scm
@@ -21,6 +21,7 @@
 (define-module (starlet fixture)
   #:use-module (starlet colours)
   #:use-module (oop goops)
+  #:use-module (ice-9 exceptions)
   #:use-module (srfi srfi-1)
   #:export (<fixture>
             get-fixture-name
@@ -153,6 +154,13 @@
   (find-attr fix 'colour))
 
 
+(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 <symbol>))
   (let ((attr-obj (find-attr fix attr)))
     (if attr-obj