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

[tkng at freedesktop.org]

Author: tkng
Date: 2005-07-23 15:51:20 -0700 (Sat, 23 Jul 2005)
New Revision: 1015

Modified:
   branches/r5rs/sigscheme/test/test-define.scm
Log:
* sigscheme/test-define.scm: Added (total-report) because previous commit
   removed calling of this function.


Modified: branches/r5rs/sigscheme/test/test-define.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-define.scm	2005-07-23 22:43:31 UTC (rev 1014)
+++ branches/r5rs/sigscheme/test/test-define.scm	2005-07-23 22:51:20 UTC (rev 1015)
@@ -10,9 +10,11 @@
 
 ; define lambda
 (define (what? x)
-  "DEAFBEEF" x)
+  "DEADBEEF" x)
 (assert-eq? "func define" 10 (what? 10))
 
 (define (add x y)
   (+ x y))
 (assert-eq? "func define" 10 (add 2 8))
+
+(total-report)