mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +02:00
Code Activity

srfi-19: Remove unused procedure.

Browse source 
* module/srfi/srfi-19.scm (date->broken-down-time): Remove.
This commit is contained in:
Ludovic Courtès 2018-07-24 12:07:03 +02:00 • committed by Andy Wingo
parent c6f70e4b04
commit 9da7de45b6
1 changed files with 1 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

20
module/srfi/srfi-19.scm
View file

@ -1,6 +1,6 @@
;;; srfi-19.scm --- Time/Date Library ;;; 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. ;; Free Software Foundation, Inc.
;; ;;
;; This library is free software; you can redistribute it and/or ;; This library is free software; you can redistribute it and/or
@ -285,24 +285,6 @@
(define (make-time type nanosecond second) (define (make-time type nanosecond second)
(time-normalize! (make-time-unnormalized 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 ;;; current-time
;;; specific time getters. ;;; specific time getters.