From 003000b7cf154767eb994099282cb90f404c224b Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 21 Oct 2008 04:19:50 -0500
Subject: [PATCH] timeval>seconds

---
 basis/calendar/unix/unix.factor | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/basis/calendar/unix/unix.factor b/basis/calendar/unix/unix.factor
index d5b66ffc1a..9848d0c164 100644
--- a/basis/calendar/unix/unix.factor
+++ b/basis/calendar/unix/unix.factor
@@ -4,13 +4,19 @@ USING: alien alien.c-types alien.syntax arrays calendar
 kernel math unix unix.time namespaces system ;
 IN: calendar.unix
 
-: timeval>unix-time ( timeval -- timestamp )
+: timeval>seconds ( timeval -- seconds )
     [ timeval-sec seconds ] [ timeval-usec microseconds ] bi
-    time+ since-1970 ;
+    time+ ;
 
-: timespec>unix-time ( timeval -- timestamp )
+: timeval>unix-time ( timeval -- timestamp )
+    timeval>seconds since-1970 ;
+
+: timespec>seconds ( timespec -- seconds )
     [ timespec-sec seconds ] [ timespec-nsec nanoseconds ] bi
-    time+ since-1970 ;
+    time+ ;
+
+: timespec>unix-time ( timespec -- timestamp )
+    timespec>seconds since-1970 ;
 
 : get-time ( -- alien )
     f time <uint> localtime ;