From 183da87bf42d82e5dc229b986c45e0aadaa590ca Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Mon, 15 May 2017 00:04:52 +0300
Subject: [PATCH] calendar.parser: simplify hms>duration

---
 basis/calendar/parser/parser.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/basis/calendar/parser/parser.factor b/basis/calendar/parser/parser.factor
index eb0a732408..b61ec74fb0 100644
--- a/basis/calendar/parser/parser.factor
+++ b/basis/calendar/parser/parser.factor
@@ -169,5 +169,4 @@ MACRO: attempt-all-quots ( quots -- quot )
     [ instant read-00 >>hour read-00 >>minute ] with-string-reader ;
 
 : hms>duration ( str -- duration )
-    [ read-hms ] with-string-reader
-    instant swap >>second swap >>minute swap >>hour ;
+    [ 0 0 0 read-hms <duration> ] with-string-reader ;