calendar.format: add hm>timestamp

diff --git a/basis/calendar/format/format.factor b/basis/calendar/format/format.factor
index 96d4afcfae70f09982e38a0e58cb703494ed6dfb..e153bb2138fe35cab9b55bf87f8a1ca73b1a477a 100644 (file)
--- 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> ;