* time.scm (time): Reimplemented as a procedure call.

(Thanks to Marius Vollmer)

ice-9/ChangeLog

@@ -1,3 +1,8 @@
+2001-03-20  Keisuke Nishida  <kxn30@po.cwru.edu>
+
+	* time.scm (time): Reimplemented as a procedure call.
+	(Thanks to Marius Vollmer)
+
 2001-03-20  Keisuke Nishida  <kxn30@po.cwru.edu>
 
 	* safe-r5rs.scm (list): Export.

ice-9/time.scm

@@ -21,10 +21,10 @@
   :use-module (ice-9 format)
   :export (time))
 
-(define-macro (time form)
+(define (time-proc proc)
   (let* ((gc-start (gc-run-time))
          (tms-start (times))
-	 (result (eval form (interaction-environment)))
+         (result (proc))
          (tms-end (times))
          (gc-end (gc-run-time)))
     (define (get proc start end)
@@ -38,3 +38,6 @@
             (get tms:cstime tms-start tms-end)
             (get id gc-start gc-end))
     result))
+
+(define-macro (time exp)
+  `(,time-proc (lambda () ,exp)))