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

[tkng at freedesktop.org]

Author: tkng
Date: 2005-07-25 23:18:29 -0700 (Mon, 25 Jul 2005)
New Revision: 1033

Modified:
   branches/r5rs/sigscheme/test/test-exp.scm
Log:
* sigscheme/test/test-exp.scm: Added a new lexical scope test.


Modified: branches/r5rs/sigscheme/test/test-exp.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-exp.scm	2005-07-26 06:02:14 UTC (rev 1032)
+++ branches/r5rs/sigscheme/test/test-exp.scm	2005-07-26 06:18:29 UTC (rev 1033)
@@ -46,6 +46,14 @@
 (assert-eq? "lexical scope test1" 1 (count))
 (assert-eq? "lexical scope test2" 2 (count))
 
+(define a 3)
+(define (lexical-test)
+  (let ((a 1))
+    (assert-eq? "lexical scope test3" 1 a)
+    (let* ((a 2))
+      (assert-eq? "lexical scope test4" 2 a))))
+(lexical-test)
+
 ;; begin
 (assert-eq? "basic begin test1" 0 (begin
 				    0))