Fix unix.time to actually load
parent
e486d74460
commit
db3c4fe43c
|
|
@ -1,6 +1,6 @@
|
||||||
! Copyright (C) 2008 Doug Coleman.
|
! Copyright (C) 2008 Doug Coleman.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: accessors alien.c-types alien.syntax calendar
|
USING: accessors alien.c-types alien.syntax
|
||||||
classes.struct kernel math unix.types ;
|
classes.struct kernel math unix.types ;
|
||||||
IN: unix.time
|
IN: unix.time
|
||||||
|
|
||||||
|
|
@ -28,11 +28,6 @@ STRUCT: timezone
|
||||||
{ tz_minuteswest int }
|
{ tz_minuteswest int }
|
||||||
{ tz_dsttime int } ;
|
{ tz_dsttime int } ;
|
||||||
|
|
||||||
: timestamp>timezone ( timestamp -- timezone )
|
|
||||||
gmt-offset>> duration>minutes
|
|
||||||
1
|
|
||||||
\ timezone <struct-boa> ; inline
|
|
||||||
|
|
||||||
STRUCT: tm
|
STRUCT: tm
|
||||||
{ sec int }
|
{ sec int }
|
||||||
{ min int }
|
{ min int }
|
||||||
|
|
|
||||||
|
|
@ -50,6 +50,4 @@ os {
|
||||||
{ freebsd [ "unix.types.freebsd" require ] }
|
{ freebsd [ "unix.types.freebsd" require ] }
|
||||||
{ openbsd [ "unix.types.openbsd" require ] }
|
{ openbsd [ "unix.types.openbsd" require ] }
|
||||||
{ netbsd [ "unix.types.netbsd" require ] }
|
{ netbsd [ "unix.types.netbsd" require ] }
|
||||||
{ winnt [ ] }
|
|
||||||
} case
|
} case
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue