[uim-commit] r2709 - branches/r5rs/sigscheme/test

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-29 11:22:42 -0800 (Thu, 29 Dec 2005)
New Revision: 2709

Modified:
   branches/r5rs/sigscheme/test/unittest.scm
Log:
* sigscheme/test/unittest.scm
  - (total-report): Replace " : " in message with ": "
  - (report-error):
    * Ditto
    * Make the arg-name consistent with other place in the file


Modified: branches/r5rs/sigscheme/test/unittest.scm
===================================================================
--- branches/r5rs/sigscheme/test/unittest.scm	2005-12-29 19:19:49 UTC (rev 2708)
+++ branches/r5rs/sigscheme/test/unittest.scm	2005-12-29 19:22:42 UTC (rev 2709)
@@ -52,8 +52,8 @@
 (define total-report
   (lambda ()
     (let ((header (if (zero? *total-failures*)
-                      "OK : "
-                      "FAILED : "))
+                      "OK: "
+                      "FAILED: "))
           (total-successes (- *total-assertions* *total-failures*)))
       (for-each display
                 (list
@@ -66,10 +66,10 @@
       (newline))))
 
 (define report-error
-  (lambda (errmsg)
+  (lambda (err-msg)
     (begin
-      (display "error : ")
-      (display errmsg)
+      (display "error: ")
+      (display err-msg)
       (newline))))
 
 (define report-inequality