diff options
| author | Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org> | 2024-03-01 09:29:58 +0100 |
|---|---|---|
| committer | Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org> | 2025-06-15 01:30:22 +0200 |
| commit | 254e9bef6cfa1f1c78b6afd4d3be03ca99208766 (patch) | |
| tree | 1ef4f44d1da0bc2e37cdb3a78aee06fa666b5d54 /v1-0001-SRFI-19-Add-support-for-ISO-8601-zones-with-a-col.patch | |
| parent | b1e7decf2b962a98e19eca618bb56f0c65c2a14d (diff) | |
| download | haunt-blog-254e9bef6cfa1f1c78b6afd4d3be03ca99208766.tar.gz haunt-blog-254e9bef6cfa1f1c78b6afd4d3be03ca99208766.tar.bz2 haunt-blog-254e9bef6cfa1f1c78b6afd4d3be03ca99208766.zip | |
Makefile: cleanup haunt calls.
Signed-off-by: Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
Diffstat (limited to 'v1-0001-SRFI-19-Add-support-for-ISO-8601-zones-with-a-col.patch')
| -rw-r--r-- | v1-0001-SRFI-19-Add-support-for-ISO-8601-zones-with-a-col.patch | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/v1-0001-SRFI-19-Add-support-for-ISO-8601-zones-with-a-col.patch b/v1-0001-SRFI-19-Add-support-for-ISO-8601-zones-with-a-col.patch deleted file mode 100644 index 906ce56..0000000 --- a/v1-0001-SRFI-19-Add-support-for-ISO-8601-zones-with-a-col.patch +++ /dev/null @@ -1,50 +0,0 @@ -From 6e9b264f861c84fafd611a850f7c9d7f131171b3 Mon Sep 17 00:00:00 2001 -From: Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org> -Date: Thu, 29 Feb 2024 19:11:44 +0100 -Subject: [PATCH v1] SRFI-19: Add support for ISO 8601 zones with a colon. - -* module/srfi/srfi-19.scm (zone-reader): handle a colon in the zone. - -* test-suite/tests/srfi-19.test (SRFI date/time library test): Add test. - -Signed-off-by: Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org> ---- - module/srfi/srfi-19.scm | 5 +++++ - test-suite/tests/srfi-19.test | 3 +++ - 2 files changed, 8 insertions(+) - -diff --git a/module/srfi/srfi-19.scm b/module/srfi/srfi-19.scm -index 570f933ca..23d115926 100644 ---- a/module/srfi/srfi-19.scm -+++ b/module/srfi/srfi-19.scm -@@ -1271,6 +1271,11 @@ - (if (eof-object? ch) - (time-error 'string->date 'bad-date-template-string - (list "Invalid time zone number" ch))) -+ (if (char=? ch #\:) -+ (set! ch (read-char port)) -+ (if (eof-object? ch) -+ (time-error 'string->date 'bad-date-template-string -+ (list "Invalid time zone number" ch)))) - (set! offset (+ offset (* (char->int ch) - 10 60)))) - (let ((ch (read-char port))) -diff --git a/test-suite/tests/srfi-19.test b/test-suite/tests/srfi-19.test -index 1d56214e4..55eb82320 100644 ---- a/test-suite/tests/srfi-19.test -+++ b/test-suite/tests/srfi-19.test -@@ -120,6 +120,9 @@ incomplete numerical tower implementation.)" - (pass-if "string->date works" - (begin (string->date "2001-06-01@14:00" "~Y-~m-~d@~H:~M") - #t)) -+ (pass-if "string->date accepts ISO 8601 zones with a colon" -+ (begin (string->date "2024-12-31T23:59:59+01:00" "~Y-~m-~dT~H:~M:~S~z") -+ #t)) - ;; check for code paths where reals were passed to quotient, which - ;; doesn't work in Guile (and is unspecified in R5RS) - (test-time->date time-utc->date date->time-utc) - -base-commit: 9e0f03c5fd36764827c8bb03887f14640c883b70 --- -2.41.0 - |
