src/libtimers.ss => src/ikarus.timer.ss
This commit is contained in:
Abdulaziz Ghuloum 2007-05-05 22:15:40 -04:00
parent 3315abba4b
commit 57a20bdfb4
3 changed files with 3 additions and 6 deletions

Binary file not shown.

View File

@ -1,7 +1,7 @@
(library (ikarus timers)
(export)
(import (scheme))
(export time-it)
(import (except (ikarus) time-it))
(define-record stats
(user-secs user-usecs sys-secs sys-usecs real-secs real-usecs collection-id))
@ -96,7 +96,6 @@
t1 t0)
(apply values v*)])))]))
(begin)
(define (bytes-minor)
(foreign-call "ikrt_bytes_allocated"))
(define (bytes-major)
@ -104,6 +103,4 @@
(define (diff-bytes mnr0 mjr0 mnr1 mjr1)
(+ (fx- mnr1 mnr0) (* (fx- mjr1 mjr0) #x10000000)))
(primitive-set! 'time-it time-it)
)

View File

@ -58,7 +58,7 @@
"ikarus.pretty-print.ss"
"ikarus.cafe.ss"
"ikarus.posix.ss"
"libtimers.ss"
"ikarus.timer.ss"
"library-manager.ss"
"libtoplevel.ss"))