~ chicken-r7rs (master) 7167a393063e55ee77df81e85f8dae975ec51192

commit 7167a393063e55ee77df81e85f8dae975ec51192
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Sun May 18 00:06:46 2014 +0000
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sun May 18 00:06:46 2014 +0000

    Use current-milliseconds for jiffies

diff --git a/scheme.time.scm b/scheme.time.scm
index 3951771..e47dddc 100644
--- a/scheme.time.scm
+++ b/scheme.time.scm
@@ -1,8 +1,12 @@
 (module scheme.time (current-second
 		     current-jiffy
 		     jiffies-per-second)
-  (import scheme)
-  (import (rename chicken (current-seconds current-second)))
-  ;; sic, XXX, TODO, etc.
-  (define current-jiffy current-second)
-  (define (jiffies-per-second) 1))
+  (import (only scheme define inexact->exact)
+	  (rename (only chicken current-seconds current-milliseconds :)
+		  (current-seconds current-second)))
+
+  (: current-jiffy (--> fixnum))
+  (define (current-jiffy) (inexact->exact (current-milliseconds)))
+
+  (: jiffies-per-second (--> fixnum))
+  (define (jiffies-per-second) 1000))