Thanks for the quick response! Works as expected.
> On Mar 4, 2017, at 3:43 PM, Kon Lovett <[email protected]> wrote: > > >> On Mar 4, 2017, at 11:29 AM, Todd Roth <[email protected]> wrote: >> >> When using the date arithmetic functions in srfi-19 I’m getting incorrect >> results when specifying ‘days or any smaller DATE-KEY parameter. The ‘year >> DATE-KEY returns the correct date/time. Below is an example from a repl >> session. I’m seeing the same behavior when using the date-add-duration and >> date-subtract-duration functions. Has anyone else seen this? >> >> >> #;101> (time->date (current-time)) >> #,(date 767000000000000000 56 10 14 4 3 2017 -18000 EST #f #f #f #f) >> >> #;110> (date-adjust (time->date (current-time)) 1 'years) >> #,(date 226000000000000000 56 11 14 4 3 2018 -18000 EST #f #f #f #f) >> >> #;152> (date-adjust (time->date (current-time)) 1 'days) >> #,(date 0 53 58 19 9 6 2047 -18000 EST #f #f #f #f) > > Sorry, my fault. Hopefully all better now: > > #;2> (define t1 (time->date (current-time))) > #;3> t1 > #,(date 689000000 48 37 12 4 3 2017 -28800 PST #f #f #f #f) > > #;4> (date-adjust t1 1 'days) > #,(date 689000000 48 37 12 5 3 2017 -28800 PST #f #f #f #f) > > version 3.4.1 should be available in a few hours. > >> _______________________________________________ >> Chicken-users mailing list >> [email protected] >> https://lists.nongnu.org/mailman/listinfo/chicken-users > _______________________________________________ Chicken-users mailing list [email protected] https://lists.nongnu.org/mailman/listinfo/chicken-users
