diff --git a/src/ikarus.boot b/src/ikarus.boot index 9db05c8..9e6e4dc 100644 Binary files a/src/ikarus.boot and b/src/ikarus.boot differ diff --git a/src/libtimers.ss b/src/ikarus.timer.ss similarity index 97% rename from src/libtimers.ss rename to src/ikarus.timer.ss index a32184e..97a8f45 100644 --- a/src/libtimers.ss +++ b/src/ikarus.timer.ss @@ -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) - ) diff --git a/src/makefile.ss b/src/makefile.ss index 2d29477..9798d01 100755 --- a/src/makefile.ss +++ b/src/makefile.ss @@ -58,7 +58,7 @@ "ikarus.pretty-print.ss" "ikarus.cafe.ss" "ikarus.posix.ss" - "libtimers.ss" + "ikarus.timer.ss" "library-manager.ss" "libtoplevel.ss"))