parent
3315abba4b
commit
57a20bdfb4
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -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)
|
||||
|
||||
)
|
|
@ -58,7 +58,7 @@
|
|||
"ikarus.pretty-print.ss"
|
||||
"ikarus.cafe.ss"
|
||||
"ikarus.posix.ss"
|
||||
"libtimers.ss"
|
||||
"ikarus.timer.ss"
|
||||
"library-manager.ss"
|
||||
"libtoplevel.ss"))
|
||||
|
||||
|
|
Loading…
Reference in New Issue