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

[tkng at freedesktop.org]

Author: tkng
Date: 2005-07-24 13:20:25 -0700 (Sun, 24 Jul 2005)
New Revision: 1024

Modified:
   branches/r5rs/sigscheme/test/unittest.scm
Log:
* sigscheme/test/unittest.scm: Fix a bug of assert. (#t) and (#f) are a invalid
  code, because meaning of this code is 'call #t as procedure.'

 -(assert): Boolean should be 'called'.


Modified: branches/r5rs/sigscheme/test/unittest.scm
===================================================================
--- branches/r5rs/sigscheme/test/unittest.scm	2005-07-24 20:13:58 UTC (rev 1023)
+++ branches/r5rs/sigscheme/test/unittest.scm	2005-07-24 20:20:25 UTC (rev 1024)
@@ -25,7 +25,7 @@
   (lambda (msg exp)
     (begin
       (set! total-test-num (+ total-test-num 1))
-      (if (exp)
+      (if exp
 	  #t
 	  (begin
 	    (set! total-err-num (+ total-err-num 1))