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/
