fix rfc2822 timezone output for positive offset (include +)

svn: r5151
This commit is contained in:
Matthew Flatt 2006-12-21 01:20:18 +00:00
parent 280d2aa95e
commit caffa6d450

View File

@ -165,7 +165,7 @@
[hours (quotient delta 3600)] [hours (quotient delta 3600)]
[minutes (modulo (quotient delta 60) 60)]) [minutes (modulo (quotient delta 60) 60)])
(list (list
(if (negative? delta) "-" "") (if (negative? delta) "-" "+")
(add-zero (abs hours)) (add-zero (abs hours))
(add-zero minutes)))))] (add-zero minutes)))))]
[else (error 'date->string "unknown date-display-format: ~s" [else (error 'date->string "unknown date-display-format: ~s"