From ceda396bfa3502a3a9a6c41f4e750065ef2bd2ce Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 14 Feb 2020 11:16:49 +0100 Subject: Export utc? for time objects. --- module/srfi/srfi-19/alt.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'module/srfi/srfi-19/alt.scm') diff --git a/module/srfi/srfi-19/alt.scm b/module/srfi/srfi-19/alt.scm index e1245a82..8443336b 100644 --- a/module/srfi/srfi-19/alt.scm +++ b/module/srfi/srfi-19/alt.scm @@ -1,6 +1,6 @@ (define-module (srfi srfi-19 alt) :export (date? year month day - hour minute second + hour minute second utc? time? datetime? ) @@ -56,7 +56,7 @@ (make-time hour minute second utc) time? (hour hour) (minute minute) (second second) - (utc utc) ; bool + (utc utc?) ; bool ) (set-record-type-printer! @@ -69,7 +69,7 @@ (hour r) (minute r) (second r)) (format p "~2'0d:~2'0d:~2'0d~a" (hour r) (minute r) (second r) - (if (utc r) "Z" ""))))) + (if (utc? r) "Z" ""))))) (define*-public (time key: (hour 0) (minute 0) (second 0) (utc #f)) (make-time hour minute second utc)) -- cgit v1.2.3