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

[kzk at freedesktop.org]

Author: kzk
Date: 2006-02-24 10:28:28 -0800 (Fri, 24 Feb 2006)
New Revision: 3142

Modified:
   branches/r5rs/sigscheme/test/test-tail-rec.scm
Log:
* sigscheme/test/test-tail-rec.scm
  - (assert): follow the change of assert in test/unittest.scm
    Now runtest-tail-rec.sh works again.


Modified: branches/r5rs/sigscheme/test/test-tail-rec.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-tail-rec.scm	2006-02-23 10:27:52 UTC (rev 3141)
+++ branches/r5rs/sigscheme/test/test-tail-rec.scm	2006-02-24 18:28:28 UTC (rev 3142)
@@ -58,11 +58,11 @@
 
 (define assert-orig assert)
 (define assert
-  (lambda (msg exp)
+  (lambda (test-name err-msg exp)
     ;; current assert implementation cannot print msg before exp has
     ;; been evaluated
-    (display msg)
-    (assert-orig msg exp)
+    (display err-msg)
+    (assert-orig test-name err-msg exp)
     (display " ...OK\n")))