minor cleanup.

2 files changed, 6 insertions, 3 deletions

diff --git a/module/datetime.scm b/module/datetime.scm
index ac826601..f7455501 100644
--- a/module/datetime.scm
+++ b/module/datetime.scm
@@ -173,19 +173,19 @@
   (cond [(datetime? date/-time) (get-date date/-time)]
         [(date? date/-time) date/-time]
         [(time? date/-time) (date)]
-        [else "Object not a date, time, or datetime object ~a" date/-time]))
+        [else (error "Object not a date, time, or datetime object ~a" date/-time)]))
 
 (define-public (as-time date/-time)
   (cond [(datetime? date/-time) (get-time% (get-datetime date/-time))]
         [(date? date/-time) (time)]
         [(time? date/-time) date/-time]
-        [else "Object not a date, time, or datetime object ~a" date/-time]))
+        [else (error "Object not a date, time, or datetime object ~a" date/-time)]))
 
 (define-public (as-datetime dt)
   (cond [(datetime? dt) dt]
         [(date? dt) (datetime date: dt time: (time))]
         [(time? dt) (datetime time: dt date: (date))]
-        [else "Object not a date, time, or datetime object ~a" dt]))
+        [else (error "Object not a date, time, or datetime object ~a" dt)]))
 
 
 ;;; EQUIALENCE
@@ -621,6 +621,7 @@
   (set (year b**) = (- (year a**))))
 
 
+
 (define-public (date-difference b a)
   (when (or (negative? (month b))
             (negative? (day   b))
diff --git a/module/srfi/srfi-41/util.scm b/module/srfi/srfi-41/util.scm
index dda0fcd0..e2a26c45 100644
--- a/module/srfi/srfi-41/util.scm
+++ b/module/srfi/srfi-41/util.scm
@@ -74,6 +74,8 @@
 ;; commented defifinitions are items which could be included, but for
 ;; one reason or another isn't.
 ;; TODO Possibly give access to list-primitives under a list- prefix.
+;; TODO since this macro is inhygienic it requires that (srfi srfi-41)
+;; is included at the point of use.
 (define-macro (with-streams . body)
   `(let-syntax
        ((cons        (identifier-syntax stream-cons))