[[project @ 1997-04-06 00:01:34 by ghouston]
ghouston**19970406000137
 Ignore-this: 6f12d1aadc446f921269c3c710721990
 	* time.scm (ticks/sec): define, always 1000000.
 	(time+ticks): use gettimeofday.
] hunk ./ChangeLog 3
+	* time.scm (ticks/sec): define, always 1000000.
+	(time+ticks): use gettimeofday.
+
hunk ./time.scm 85
-; TICKS/SEC is defined in OS-dependent code.
+(define ticks/sec 1000000)
hunk ./time.scm 94
-;; convert pair to multiple values.
-(if (not (defined? 'guile-time+ticks))
-    (define guile-time+ticks time+ticks))
-(set! time+ticks
-      (lambda ()
-	(let ((rv (guile-time+ticks)))
-	  (values (car rv) (cdr rv)))))
+(define (time+ticks)
+  (let ((rv (gettimeofday)))
+    (values (car rv) (cdr rv))))