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

renamed: 

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

7
src/libtimers.ss → src/ikarus.timer.ss
View File

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

2
src/makefile.ss
View File

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