calendar.unix: simplify current-timeval.

diff --git a/basis/calendar/unix/unix.factor b/basis/calendar/unix/unix.factor
index f106f8810e4f42b0f70e57f0e7144a6957a7950a..973b316f9d4d3abba77191dc73a00095c82cbbd5 100644 (file)
--- 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 <struct> f [ gettimeofday io-error ] 2keep drop ; inline
+    timeval <struct> [ f gettimeofday io-error ] keep ; inline
 
 : system-micros ( -- n )
     current-timeval timeval>micros ;