[bug #29575] SRFI-19 conversion issue

[Ludovic Courtès]

Follow-up Comment #3, bug #29575 (project guile):

For the record I can't reproduce it with 1.9.10:

#v+
scheme@(guile-user)> (use-modules (srfi srfi-19))
scheme@(guile-user)> 
scheme@(guile-user)> (define one-day-duration
...   (time-difference (date->time-utc (string->date "20100102" "~Y~m~d"))
...                    (date->time-utc (string->date "20100101" "~Y~m~d"))))
scheme@(guile-user)> 
scheme@(guile-user)> (define +day
...   (lambda (yyyymmdd)
...     "Add one day to date string"
...     (date->string
...      (time-utc->date
...       (add-duration (date->time-utc (string->date yyyymmdd "~Y~m~d"))
... one-day-duration))
...      "~Y~m~d")))
scheme@(guile-user)> 
scheme@(guile-user)> 
scheme@(guile-user)> (+day "20091102")
$1 = "20091103"
scheme@(guile-user)> (+day "20091101")
$2 = "20091102"
scheme@(guile-user)> (+day "20081102")
$3 = "20081103"
scheme@(guile-user)> (+day "20071104")
$4 = "20071105"
scheme@(guile-user)> (setlocale LC_ALL)
$5 =
"LC_CTYPE=en_US.UTF-8;LC_NUMERIC=C;LC_TIME=C;LC_COLLATE=C;LC_MONETARY=C;LC_MESSAGES=C;LC_PAPER=C;LC_NAME=C;LC_ADDRESS=C;LC_TELEPHONE=C;LC_MEASUREMENT=C;LC_IDENTIFICATION=C"
scheme@(guile-user)> (getenv "TZ")
$6 = "Europe/Paris"
#v-

Could it be related to your timezone settings or something?

Ludo'.

    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?29575>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.gnu.org/