mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

Fix SRFI-19 exports.

Browse source 
* module/srfi/srfi-19.scm: Export `time-monotonic->julian-day' and
  `time-monotonic->modified-julian-day'.  Remove obscure `current-time'
  hack.  Use `(define-module :export ...)' instead of `(export ...)'.
This commit is contained in:
Ludovic Courtès 2010-01-10 23:57:01 +01:00
parent 6734191c68
commit bf943698b6
1 changed files with 6 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

17
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, 2002, 2003, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. ;; Copyright (C) 2001, 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public
@ -43,15 +43,8 @@
:use-module (srfi srfi-8) :use-module (srfi srfi-8)
:use-module (srfi srfi-9) :use-module (srfi srfi-9)
:autoload (ice-9 rdelim) (read-line) :autoload (ice-9 rdelim) (read-line)
:use-module (ice-9 i18n)) :use-module (ice-9 i18n)
:export (;; Constants
(begin-deprecated
;; Prevent `export' from re-exporting core bindings. This behaviour
;; of `export' is deprecated and will disappear in one of the next
;; releases.
(define current-time #f))
(export ;; Constants
time-duration time-duration
time-monotonic time-monotonic
time-process time-process
@ -116,6 +109,8 @@
modified-julian-day->time-tai modified-julian-day->time-tai
modified-julian-day->time-utc modified-julian-day->time-utc
time-monotonic->date time-monotonic->date
time-monotonic->julian-day
time-monotonic->modified-julian-day
time-monotonic->time-tai time-monotonic->time-tai
time-monotonic->time-tai! time-monotonic->time-tai!
time-monotonic->time-utc time-monotonic->time-utc
@ -136,7 +131,7 @@
time-utc->time-tai! time-utc->time-tai!
;; Date to string/string to date converters. ;; Date to string/string to date converters.
date->string date->string
string->date) string->date))
(cond-expand-provide (current-module) '(srfi-19)) (cond-expand-provide (current-module) '(srfi-19))