~ chicken-core (chicken-5) af278fbdd05b4d052a2c33f6e307314eb8f165be

commit af278fbdd05b4d052a2c33f6e307314eb8f165be
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun May 16 01:09:46 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun May 16 01:09:46 2010 +0200

    isn't it fascinating how much time one can spend tweaking timing output?

diff --git a/library.scm b/library.scm
index 00500fe5..5ebdb42b 100644
--- a/library.scm
+++ b/library.scm
@@ -4587,30 +4587,28 @@ EOF
 
 (define (##sys#display-times info)
   (define (pstr str) (##sys#print str #f ##sys#standard-error))
+  (define (pchr chr) (##sys#write-char-0 chr ##sys#standard-error))
   (define (pnum num)
     (##sys#print (if (zero? num) "0" (##sys#number->string num)) #f ##sys#standard-error))
   (##sys#flush-output ##sys#standard-output)
   (pnum (##sys#slot info 0))
-  (pstr "s elapsed")
+  (pstr "s CPU time")
   (let ((gctime (##sys#slot info 1)))
     (when (> gctime 0)
       (pstr ", ")
       (pnum gctime)
-      (pstr "s (major) GC")))
+      (pstr "s GC time (major)")))
   (let ((mut (##sys#slot info 2)))
     (when (fx> mut 0)
       (pstr ", ")
       (pnum mut)
       (pstr " mutations")))
-  (let ((minor (##sys#slot info 3)))
-    (when (fx> minor 0)
-      (pstr ", GCs: ")
-      (pnum minor)
-      (pstr " minor")))
-  (let ((major (##sys#slot info 4)))
-    (when (fx> major 0)
+  (let ((minor (##sys#slot info 3))
+	(major (##sys#slot info 4)))
+    (when (or (fx> minor 0) (fx> major 0))
       (pstr ", ")
       (pnum major)
-      (pstr " major")))
-  (##sys#write-char-0 #\newline ##sys#standard-error))
-
+      (pchr #\/)
+      (pnum minor)
+      (pstr " GCs")
+      (pchr #\newline))))
diff --git a/manual/Non-standard macros and special forms b/manual/Non-standard macros and special forms
index dbbfabd9..1f774065 100644
--- a/manual/Non-standard macros and special forms	
+++ b/manual/Non-standard macros and special forms	
@@ -533,7 +533,7 @@ by expression {{EXP}}.
 <macro>(time EXP1 ...)</macro>
 
 Performs a major garbage collection, evaluates {{EXP1 ...}} and prints
-elapsed time and some values about GC use, like time spent in major
+elapsed CPU time and some values about GC use, like time spent in major
 GCs, number of minor and major GCs. The output is sent to the port
 that is the current value of {{(current-error-port)}}.