conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* fixed name of time-second (was time-seconds before).

This commit is contained in:
Abdulaziz Ghuloum 2007-12-05 03:11:47 -05:00
parent 5d568e478e
commit 4318a7cea7
3 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
scheme/ikarus.time-and-date.ss
View File

@ -15,9 +15,10 @@
(library (ikarus system time-and-date)
(export current-time time? time-seconds)
(export current-time time? time-second time-nanosecond)
(import
(except (ikarus) time current-time time? time-seconds))
(except (ikarus) time current-time time? time-second
time-nanosecond))
(define-struct time (msecs secs usecs))
;;; mega/seconds/micros
@ -25,9 +26,16 @@
(define (current-time)
(foreign-call "ikrt_current_time" (make-time 0 0 0)))
(define (time-seconds x)
(define (time-second x)
(if (time? x)
(+ (* (time-msecs x) #e10e6)
(time-secs x))
(error 'time-seconds "not a time" x))))
(error 'time-second "not a time" x)))
(define (time-nanosecond x)
(if (time? x)
(* (time-usecs x) 1000)
(error 'time-nanosecond "not a time" x)))
)

2
scheme/last-revision
View File

@ -1 +1 @@
1183
1185

3
scheme/makefile.ss
View File

@ -373,7 +373,8 @@
[time-it i]
[current-time i]
[time? i]
[time-seconds i]
[time-second i]
[time-nanosecond i]
[command-line-arguments i]
[set-rtd-printer! i]
[make-record-type i]