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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-07 01:35:54 -0800 (Mon, 07 Nov 2005)
New Revision: 2048

Modified:
   branches/r5rs/sigscheme/test/unittest.scm
Log:
* sigscheme/test/unittest.scm
  - (assert): Rename back inappropriate argument name


Modified: branches/r5rs/sigscheme/test/unittest.scm
===================================================================
--- branches/r5rs/sigscheme/test/unittest.scm	2005-11-07 09:32:50 UTC (rev 2047)
+++ branches/r5rs/sigscheme/test/unittest.scm	2005-11-07 09:35:54 UTC (rev 2048)
@@ -76,13 +76,13 @@
     (newline)))
 
 (define assert
-  (lambda (test-name exp)
+  (lambda (err-msg exp)
     (set! *total-assertions* (+ *total-assertions* 1))
     (if exp
 	#t
 	(begin
 	  (set! *total-failures* (+ *total-failures* 1))
-	  (report-error test-name)
+	  (report-error err-msg)
 	  #f))))
 
 ;;