classes.struct: moving to new/boa instead of <struct>/<struct-boa>

[factor.git] / basis / unix / time / time.factor

diff --git a/basis/unix/time/time.factor b/basis/unix/time/time.factor
index 71c34046d89dfc1a830a3406c7eb54825e70e143..0935f3a7fb184c41fa35149e843c09dc9e79f19d 100644 (file)
--- a/basis/unix/time/time.factor
+++ b/basis/unix/time/time.factor
@@ -13,17 +13,17 @@ STRUCT: timespec
     { nsec long } ;
 
 : <timeval> ( sec usec -- timeval )
-    timeval <struct>
+    timeval new
         swap >>usec
         swap >>sec ; inline
 
 : make-timeval ( us -- timeval )
-    [ timeval <struct> ] dip [
+    [ timeval new ] dip [
         1000000 /mod [ >>sec ] [ >>usec ] bi*
     ] unless-zero ;
 
 : make-timespec ( nanos -- timespec )
-    [ timespec <struct> ] dip [
+    [ timespec new ] dip [
         1000000000 /mod [ >>sec ] [ >>nsec ] bi*
     ] unless-zero ;