Add some error checking

1 files changed, 11 insertions, 0 deletions

diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm
index 9f8fd0b..9726144 100644
--- a/guile/starlet/playback.scm
+++ b/guile/starlet/playback.scm
@@ -2,6 +2,7 @@
   #:use-module (oop goops)
   #:use-module (ice-9 optargs)
   #:use-module (ice-9 receive)
+  #:use-module (ice-9 exceptions)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-9)
   #:use-module (srfi srfi-43)
@@ -218,6 +219,16 @@
                    preset-delay
                    start-time
                    current-time)
+
+  (unless (and (number? start-val)
+               (number? end-val)
+               (number? preset-val))
+    (raise-exception (make-exception
+                       (make-exception-with-message
+                         "Non-number arguments given to fade-func")
+                       (make-exception-with-irritants
+                         (list start-val end-val preset-val)))))
+
   (let ((elapsed-fade-time (- current-time start-time delay-time)))
     (cond