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

[tkng at freedesktop.org]

Author: tkng
Date: 2005-07-24 13:08:11 -0700 (Sun, 24 Jul 2005)
New Revision: 1022

Modified:
   branches/r5rs/sigscheme/test/test-apply.scm
Log:
* sigscheme/test/test-apply.scm: Changed wrong test.


Modified: branches/r5rs/sigscheme/test/test-apply.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-apply.scm	2005-07-24 13:48:59 UTC (rev 1021)
+++ branches/r5rs/sigscheme/test/test-apply.scm	2005-07-24 20:08:11 UTC (rev 1022)
@@ -1,8 +1,8 @@
-(load "test/unittest.scm")
+(load "./test/unittest.scm")
 
 ;; check apply
 (assert-eq? "apply check" #t (apply = '(1 1 1)))
-(assert-eq? "apply check" 6  (apply + '(1 2 (+ 1 2))))
+(assert-eq? "apply check" 6  (apply + `(1 2 ,(+ 1 2))))
 (assert-eq? "apply check" 4  (apply (lambda (x y) (+ x y)) '(1 3)))
 
 (total-report)