diff options
author | Ludovic Courtès <ludo@gnu.org> | 2010-01-10 23:57:01 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2010-01-11 01:21:14 +0100 |
commit | bf943698b6f37f35c22e245d6b56df9d19411ebf (patch) | |
tree | 17536f1665c0294b4ea0ce4ec83dc967ca50578a /module/srfi/srfi-19.scm | |
parent | 6734191c6822d41920c322d83fa0e17221d95dc3 (diff) | |
download | guile-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/srfi-19.scm')
-rw-r--r-- | module/srfi/srfi-19.scm | 17 |
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)) |