steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

calendar.format: allow UTC to be in rfc822 timestamps.

char-rename
John Benediktsson 2016-12-31 13:22:49 -08:00
parent 4d580d95bf
commit 556a2b2b5b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/calendar/format/format.factor
View File

@ -213,7 +213,7 @@ ERROR: invalid-timestamp-format ;
string>number check-timestamp ; string>number check-timestamp ;
: parse-rfc822-gmt-offset ( string -- dt ) : parse-rfc822-gmt-offset ( string -- dt )
dup "GMT" = [ drop instant ] [ dup { "UTC" "GMT" } member? [ drop instant ] [
unclip [ unclip [
2 cut [ string>number ] bi@ [ hours ] [ minutes ] bi* time+ 2 cut [ string>number ] bi@ [ hours ] [ minutes ] bi* time+
] dip signed-gmt-offset ] dip signed-gmt-offset