[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.
- [Guile-commits] 42/58: vm: Fix stack-marking bug in multi-threaded programs., (continued)
- [Guile-commits] 42/58: vm: Fix stack-marking bug in multi-threaded programs., Andy Wingo, 2018/08/07
- [Guile-commits] 52/58: compile: Update copyright year., Andy Wingo, 2018/08/07
- [Guile-commits] 25/58: Add SRFI 71: Extended LET-syntax for multiple values., Andy Wingo, 2018/08/07
- [Guile-commits] 37/58: types: Recognize 'scm_t_port_type' and decode port type name., Andy Wingo, 2018/08/07
- [Guile-commits] 48/58: Make srfi-71 visible through 'cond-expand'., Andy Wingo, 2018/08/07
- [Guile-commits] 46/58: build: Really build srfi/srfi-71.scm., Andy Wingo, 2018/08/07
- [Guile-commits] 43/58: Serialize accesses to submodule hash tables., Andy Wingo, 2018/08/07
- [Guile-commits] 50/58: compile: Add '-x' flag., Andy Wingo, 2018/08/07
- [Guile-commits] 57/58: Merge branch 'master' into lightning, Andy Wingo, 2018/08/07
- [Guile-commits] 44/58: Update copyright years in '--version' and the manual., Andy Wingo, 2018/08/07
- [Guile-commits] 55/58: srfi-19: Remove unused procedure.,
Andy Wingo <=
- [Guile-commits] 35/58: web: Export http-request., Andy Wingo, 2018/08/07
- [Guile-commits] 56/58: Fix R6RS call-with-{input, output}-file to open textual ports., Andy Wingo, 2018/08/07
- [Guile-commits] 54/58: Add -Wshadowed-toplevel., Andy Wingo, 2018/08/07