calendar.format: restore the deleted duration>hm

It was replaced with duration>hms, but the version without the seconds is
also useful.

diff --git a/basis/calendar/format/format.factor b/basis/calendar/format/format.factor
index 9506bda581cda08f071f9e4d2693921d3b3ea9e1..1c4c685248c9c533ef27cb7baa6c27de1d80b529 100644 (file)
--- a/basis/calendar/format/format.factor
+++ b/basis/calendar/format/format.factor
@@ -187,10 +187,12 @@ TYPED: timestamp>ymdhms ( timestamp: timestamp -- str )
 M: timestamp present timestamp>string ;
 
 ! Duration formatting
-TYPED: duration>hms ( duration: duration -- str )
+TYPED: duration>hm ( duration: duration -- str )
     [ duration>hours >integer 24 mod pad-00 ]
-    [ duration>minutes >integer 60 mod pad-00 ]
-    [ second>> >integer 60 mod pad-00 ] tri 3array ":" join ;
+    [ duration>minutes >integer 60 mod pad-00 ] bi ":" glue ;
+
+TYPED: duration>hms ( duration: duration -- str )
+    [ duration>hm ] [ second>> >integer 60 mod pad-00 ] bi ":" glue ;
 
 TYPED: duration>human-readable ( duration: duration -- string )
     [