From 5e24009561a095339930e600f6ae2ac53ac1bd76 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 27 Oct 2023 17:04:42 +0200 Subject: Move coverage supplement for datetime into source file. --- module/datetime.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'module/datetime.scm') diff --git a/module/datetime.scm b/module/datetime.scm index 9bb536e3..53eb35c6 100644 --- a/module/datetime.scm +++ b/module/datetime.scm @@ -201,7 +201,7 @@ constructor: datetime-constructor-constructor printer: (lambda (r p) (if (and (tz r) (not (string=? "UTC" (tz r)))) - (write (datetime->sexp r) p) + (write (datetime->sexp r) p) ; NOCOV (display (datetime->string r "#~1T~3~Z") p)))) (datetime-date type: date?) @@ -249,7 +249,7 @@ (let ((tm (datetime->tm dt))) (car (if (tz dt) (mktime tm (vector-last tm)) - (mktime tm))))) + (mktime tm))))) ; NOCOV Would depend on local timezone (define (unix-time->datetime n) ;; tm->datetime returns GMT here (as hinted by the @@ -963,7 +963,7 @@ Returns -1 on failure" ;; Extends a binary comparison procedure to work on any ;; number of arguments. (define (fold-comparator <) - (label this + (label this ; NOCOV (case-lambda [() #t] [(_) #t] -- cgit v1.2.3