From 1afb8076991a1e8c7646b57fe349bb19248bb886 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Thu, 15 Mar 2012 22:58:32 +0900 Subject: [PATCH] Fixing time? to handle a timeval or (timeval timezone) pair. --- lib/srfi/18/interface.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/srfi/18/interface.scm b/lib/srfi/18/interface.scm index b5565f23..31d10840 100644 --- a/lib/srfi/18/interface.scm +++ b/lib/srfi/18/interface.scm @@ -1,6 +1,6 @@ (define current-time get-time-of-day) -(define time? timeval?) +(define (time? x) (timeval? (if (pair? x) (car x) x))) (define (time->seconds x) (timeval-seconds (if (pair? x) (car x) x)))