From e5850f93e05c5391bcbe9ab5430dee2e891e4cd5 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 27 Feb 2014 15:26:52 -0800 Subject: [PATCH] calendar.unix: simplify current-timeval. --- basis/calendar/unix/unix.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/calendar/unix/unix.factor b/basis/calendar/unix/unix.factor index f106f8810e..973b316f9d 100644 --- a/basis/calendar/unix/unix.factor +++ b/basis/calendar/unix/unix.factor @@ -35,7 +35,7 @@ M: unix gmt-offset ( -- hours minutes seconds ) get-time gmtoff>> 3600 /mod 60 /mod ; : current-timeval ( -- timeval ) - timeval f [ gettimeofday io-error ] 2keep drop ; inline + timeval [ f gettimeofday io-error ] keep ; inline : system-micros ( -- n ) current-timeval timeval>micros ;