summaryrefslogtreecommitdiff
path: root/module/srfi
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2010-01-10 23:57:01 +0100
committerLudovic Courtès <ludo@gnu.org>2010-01-11 01:21:14 +0100
commitbf943698b6f37f35c22e245d6b56df9d19411ebf (patch)
tree17536f1665c0294b4ea0ce4ec83dc967ca50578a /module/srfi
parent6734191c6822d41920c322d83fa0e17221d95dc3 (diff)
downloadguile-bf943698b6f37f35c22e245d6b56df9d19411ebf.tar.gz
Fix SRFI-19 exports.
* 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 ...)'.
Diffstat (limited to 'module/srfi')
-rw-r--r--module/srfi/srfi-19.scm17
1 files changed, 6 insertions, 11 deletions
diff --git a/module/srfi/srfi-19.scm b/module/srfi/srfi-19.scm
index 6148b55b2..e73e4d686 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, 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
;; modify it under the terms of the GNU Lesser General Public
@@ -43,15 +43,8 @@
:use-module (srfi srfi-8)
:use-module (srfi srfi-9)
:autoload (ice-9 rdelim) (read-line)
- :use-module (ice-9 i18n))
-
-(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
+ :use-module (ice-9 i18n)
+ :export (;; Constants
time-duration
time-monotonic
time-process
@@ -116,6 +109,8 @@
modified-julian-day->time-tai
modified-julian-day->time-utc
time-monotonic->date
+ time-monotonic->julian-day
+ time-monotonic->modified-julian-day
time-monotonic->time-tai
time-monotonic->time-tai!
time-monotonic->time-utc
@@ -136,7 +131,7 @@
time-utc->time-tai!
;; Date to string/string to date converters.
date->string
- string->date)
+ string->date))
(cond-expand-provide (current-module) '(srfi-19))