add word to parse robots.txt visit-time

2009-03-20 20:40:39 -05:00 · 2009-03-20 20:40:39 -05:00 · 054a2e5b7c
parent ea614e6a5f
commit 054a2e5b7c
1 changed files with 5 additions and 0 deletions
--- a/basis/calendar/format/format.factor
+++ b/basis/calendar/format/format.factor
@ -46,6 +46,11 @@ IN: calendar.format

 : read-0000 ( -- n ) 4 read string>number ;

+: hhmm>timestamp ( hhmm -- timestamp )
+    [
+        0 0 0 read-00 read-00 0 instant <timestamp>
+    ] with-string-reader ;
+
 GENERIC: day. ( obj -- )

 M: integer day. ( n -- )