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) (library (ikarus system time-and-date)
(export current-time time? time-seconds) (export current-time time? time-second time-nanosecond)
(import (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)) (define-struct time (msecs secs usecs))
;;; mega/seconds/micros ;;; mega/seconds/micros
@ -25,9 +26,16 @@
(define (current-time) (define (current-time)
(foreign-call "ikrt_current_time" (make-time 0 0 0))) (foreign-call "ikrt_current_time" (make-time 0 0 0)))
(define (time-seconds x) (define (time-second x)
(if (time? x) (if (time? x)
(+ (* (time-msecs x) #e10e6) (+ (* (time-msecs x) #e10e6)
(time-secs x)) (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] [time-it i]
[current-time i] [current-time i]
[time? i] [time? i]
[time-seconds i] [time-second i]
[time-nanosecond i]
[command-line-arguments i] [command-line-arguments i]
[set-rtd-printer! i] [set-rtd-printer! i]
[make-record-type i] [make-record-type i]