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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-07 00:36:08 -0800 (Mon, 07 Nov 2005)
New Revision: 2043

Modified:
   branches/r5rs/sigscheme/test/unittest.scm
Log:
* sigscheme/test/unittest.scm
  - Cosmetic change


Modified: branches/r5rs/sigscheme/test/unittest.scm
===================================================================
--- branches/r5rs/sigscheme/test/unittest.scm	2005-11-07 08:33:21 UTC (rev 2042)
+++ branches/r5rs/sigscheme/test/unittest.scm	2005-11-07 08:36:08 UTC (rev 2043)
@@ -97,9 +97,6 @@
 	  (write b)
 	  (newline)))))
 
-(define (eval-counter n)
-  (list 'eval-counter (+ n 1)))
-
 (define assert-error
   (lambda (test-name proc)
     (let ((errored (guard (err
@@ -109,3 +106,7 @@
                      #f))
           (err-msg (string-append "no error has occurred in test " test-name)))
       (assert err-msg errored))))
+
+
+(define (eval-counter n)
+  (list 'eval-counter (+ n 1)))