From 8bb7f65d9e75d0e1daf94b1257f80559c9134fd2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 25 Mar 2020 00:06:31 +0100 Subject: minor cleanup. --- module/datetime.scm | 7 ++++--- module/srfi/srfi-41/util.scm | 2 ++ 2 files changed, 6 insertions(+), 3 deletions(-) (limited to 'module') 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)) -- cgit v1.2.3