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

[tkng at freedesktop.org]

Author: tkng
Date: 2005-07-24 06:14:48 -0700 (Sun, 24 Jul 2005)
New Revision: 1020

Modified:
   branches/r5rs/sigscheme/test/test-define.scm
Log:
* sigscheme/test/test-define.scm: Added a new test. Now sscm fails.
 -(idefine-o): Test for internal define.


Modified: branches/r5rs/sigscheme/test/test-define.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-define.scm	2005-07-24 13:03:45 UTC (rev 1019)
+++ branches/r5rs/sigscheme/test/test-define.scm	2005-07-24 13:14:48 UTC (rev 1020)
@@ -46,4 +46,12 @@
   c)
 (assert-equal? "dot arg test 6" '(3 4) (dotarg5 1 2 3 4))
 
+; test for internal define
+(define (idefine-o a)
+  (define (idefine-i c)
+    (+ c 3))
+  (idefine-i a))
+
+(assert-eq? "internal define" 5 (idefine-o 2))
+
 (total-report)