From 229600842bdeac14f0a85bd17f8e6af222113482 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 13 Feb 2022 22:12:07 +0100 Subject: Datetime remove old commented parse-month. --- module/datetime.scm | 19 ------------------- 1 file changed, 19 deletions(-) (limited to 'module/datetime.scm') diff --git a/module/datetime.scm b/module/datetime.scm index d0025316..95f2f77d 100644 --- a/module/datetime.scm +++ b/module/datetime.scm @@ -642,25 +642,6 @@ ;;; Input -#; -(define (parse-month str) - "Get month number from a (shortened) monthname. -Returns -1 on failure" - (let loop ((i 1) - (months (map (compose string-locale-downcase locale-month) - (iota 12 1)))) - (if (null? months) - -1 - (let ((len (min (string-length (car months)) - (string-length str)))) - (if (string=? - (string-take (string-downcase str) len) - (string-take (car months) len)) - i - (loop (1+ i) (cdr months))))))) - - - (define*-public (parse-month str optional: (locale %global-locale)) "Get month number from a (shortened) monthname. Returns -1 on failure" -- cgit v1.2.3