calendar.format: add hm>timestamp

2016-07-22 19:03:40 +03:00 · 2016-07-22 19:03:40 +03:00 · a337a0349d
parent ebfce1deea
commit a337a0349d
1 changed files with 3 additions and 0 deletions
--- a/basis/calendar/format/format.factor
+++ b/basis/calendar/format/format.factor
@ -286,6 +286,9 @@ ERROR: invalid-timestamp-format ;
 : hms>timestamp ( str -- timestamp )
    [ (hms>timestamp) ] with-string-reader ;

+: hm>timestamp ( str -- timestamp )
+    ":00" append hms>timestamp ;
+
 : (ymd>timestamp) ( -- timestamp )
    read-ymd <date-gmt> ;