~ chicken-core (chicken-5) 543131a8129614cf37162c226958fdf6f985e207

commit 543131a8129614cf37162c226958fdf6f985e207
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri May 13 13:59:27 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri May 13 13:59:27 2011 +0200

    added another scrutinizer tests

diff --git a/tests/scrutiny-tests.scm b/tests/scrutiny-tests.scm
index f7f08a12..4363b701 100644
--- a/tests/scrutiny-tests.scm
+++ b/tests/scrutiny-tests.scm
@@ -68,3 +68,9 @@
   (string-append x "abc")
   (+ x 3))
 
+;; aliasing
+(define (foo6 x)
+  (let ((y x))
+    (string-append x "abc")
+    (+ x 3)))				;XXX (+ y 3) does not work yet
+