diff options
Diffstat (limited to 'guile/starlet/fixture.scm')
| -rw-r--r-- | guile/starlet/fixture.scm | 8 |
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 |