guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 55/58: srfi-19: Remove unused procedure.


From: Andy Wingo
Subject: [Guile-commits] 55/58: srfi-19: Remove unused procedure.
Date: Tue, 7 Aug 2018 06:58:39 -0400 (EDT)

wingo pushed a commit to branch lightning
in repository guile.

commit 9da7de45b628db4936b012b692a38b9af54cf3b9
Author: Ludovic Court├Ęs <address@hidden>
Date:   Tue Jul 24 12:07:03 2018 +0200

    srfi-19: Remove unused procedure.
    
    * module/srfi/srfi-19.scm (date->broken-down-time): Remove.
---
 module/srfi/srfi-19.scm | 20 +-------------------
 1 file changed, 1 insertion(+), 19 deletions(-)

diff --git a/module/srfi/srfi-19.scm b/module/srfi/srfi-19.scm
index 9cf9a2e..b1c5f9e 100644
--- a/module/srfi/srfi-19.scm
+++ b/module/srfi/srfi-19.scm
@@ -1,6 +1,6 @@
 ;;; srfi-19.scm --- Time/Date Library
 
-;; Copyright (C) 2001-2003, 2005-2011, 2014, 2016-2017
+;; Copyright (C) 2001-2003, 2005-2011, 2014, 2016-2018
 ;;   Free Software Foundation, Inc.
 ;;
 ;; This library is free software; you can redistribute it and/or
@@ -285,24 +285,6 @@
 (define (make-time type nanosecond second)
   (time-normalize! (make-time-unnormalized type nanosecond second)))
 
-;; Helpers
-;; FIXME: finish this and publish it?
-(define (date->broken-down-time date)
-  (let ((result (mktime 0)))
-    ;; FIXME: What should we do about leap-seconds which may overflow
-    ;; set-tm:sec?
-    (set-tm:sec result (date-second date))
-    (set-tm:min result (date-minute date))
-    (set-tm:hour result (date-hour date))
-    ;; FIXME: SRFI day ranges from 0-31.  (not compatible with set-tm:mday).
-    (set-tm:mday result (date-day date))
-    (set-tm:mon result (- (date-month date) 1))
-    ;; FIXME: need to signal error on range violation.
-    (set-tm:year result (+ 1900 (date-year date)))
-    (set-tm:isdst result -1)
-    (set-tm:gmtoff result (- (date-zone-offset date)))
-    result))
-
 ;;; current-time
 
 ;;; specific time getters.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]