{"action":"closed","issue":{"url":"https://api.github.com/repos/cisco/ChezScheme/issues/20","repository_url":"https://api.github.com/repos/cisco/ChezScheme","labels_url":"https://api.github.com/repos/cisco/ChezScheme/issues/20/labels{/name}","comments_url":"https://api.github.com/repos/cisco/ChezScheme/issues/20/comments","events_url":"https://api.github.com/repos/cisco/ChezScheme/issues/20/events","html_url":"https://github.com/cisco/ChezScheme/issues/20","id":151540839,"number":20,"title":"date->time-utc does not honor date's zone-offset","user":{"login":"akeep","id":113071,"avatar_url":"https://avatars.githubusercontent.com/u/113071?v=3","gravatar_id":"","url":"https://api.github.com/users/akeep","html_url":"https://github.com/akeep","followers_url":"https://api.github.com/users/akeep/followers","following_url":"https://api.github.com/users/akeep/following{/other_user}","gists_url":"https://api.github.com/users/akeep/gists{/gist_id}","starred_url":"https://api.github.com/users/akeep/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/akeep/subscriptions","organizations_url":"https://api.github.com/users/akeep/orgs","repos_url":"https://api.github.com/users/akeep/repos","events_url":"https://api.github.com/users/akeep/events{/privacy}","received_events_url":"https://api.github.com/users/akeep/received_events","type":"User","site_admin":false},"labels":[{"url":"https://api.github.com/repos/cisco/ChezScheme/labels/bug","name":"bug","color":"ee0701"}],"state":"closed","locked":false,"assignee":{"login":"akeep","id":113071,"avatar_url":"https://avatars.githubusercontent.com/u/113071?v=3","gravatar_id":"","url":"https://api.github.com/users/akeep","html_url":"https://github.com/akeep","followers_url":"https://api.github.com/users/akeep/followers","following_url":"https://api.github.com/users/akeep/following{/other_user}","gists_url":"https://api.github.com/users/akeep/gists{/gist_id}","starred_url":"https://api.github.com/users/akeep/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/akeep/subscriptions","organizations_url":"https://api.github.com/users/akeep/orgs","repos_url":"https://api.github.com/users/akeep/repos","events_url":"https://api.github.com/users/akeep/events{/privacy}","received_events_url":"https://api.github.com/users/akeep/received_events","type":"User","site_admin":false},"milestone":null,"comments":1,"created_at":"2016-04-28T03:22:15Z","updated_at":"2016-04-29T04:46:14Z","closed_at":"2016-04-29T04:46:14Z","body":"While the time-utc->date procedure takes an optional argument for the timezone offset, the date->time-utc procedure does not honor the date objects zone-offset field.  This means if I create two date object with different time zones from the same original UTC time, and then I covert both dates back to time-utc objects, they should be the same time, however they are not.\r\n\r\nWhen this is fixed the following test return #t:\r\n```\r\n(let ([t (current-time)])\r\n    (let ([d-est (time-utc->date t -14400)]\r\n          [d-utc (time-utc->date t 0)])\r\n      (time=? (date->time-utc d-est) (date->time-utc d-utc)))) ; => #f\r\n```"}}