~ chicken-core (chicken-5) ad16d1de0076e761b33bcbb19bbb1474327adc5c

commit ad16d1de0076e761b33bcbb19bbb1474327adc5c
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Mar 22 12:47:57 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Mar 22 12:47:57 2011 +0100

    removed lambda-lifting compiler test

diff --git a/distribution/manifest b/distribution/manifest
index abdc28fe..308f8b6a 100644
--- a/distribution/manifest
+++ b/distribution/manifest
@@ -103,7 +103,6 @@ tests/arithmetic-test.32.expected
 tests/arithmetic-test.64.expected
 tests/library-tests.scm
 tests/compiler-tests.scm
-tests/compiler-tests-2.scm
 tests/compiler-tests-3.scm
 tests/inlining-tests.scm
 tests/locative-stress-test.scm
diff --git a/tests/compiler-tests-2.scm b/tests/compiler-tests-2.scm
deleted file mode 100644
index f306ed10..00000000
--- a/tests/compiler-tests-2.scm
+++ /dev/null
@@ -1,26 +0,0 @@
-;;; compiler-tests-2.scm - tests for lambda-lifting
-
-
-;;; rev. 12113 - lambda-lifting breakage, because lambda-bound variables
-;                were incorrectly marked as global (analysis didn't walk
-;                "lambda" nodes correctly, due t incorrect assumption 
-;                that "lambda" doesn't occur. Major stupidity.
-;                Test case by Joerg Wittenberger
-
-(define (plus1 a)
- (define (plus b)
-   (+ a b))
- (plus 1))
-
-(assert (= 2 (plus1 1)))
-
-(define (len lst)
- (define (len n)
-   (if (pair? lst)
-       (begin
-         (set! lst (cdr lst))
-         (len (+ n 1)))
-       n))
- (len 0))
-
-(assert (= 3 (len '(1 2 3))))
diff --git a/tests/runtests.sh b/tests/runtests.sh
index a0c3e5f9..ff19bc88 100644
--- a/tests/runtests.sh
+++ b/tests/runtests.sh
@@ -49,10 +49,6 @@ echo "======================================== compiler tests ..."
 $compile compiler-tests.scm
 ./a.out
 
-echo "======================================== compiler tests (lambda-lift) ..."
-$compile compiler-tests-2.scm -lambda-lift
-./a.out
-
 echo "======================================== compiler tests (unboxing) ..."
 $compile compiler-tests-3.scm -unsafe -unboxing
 ./a.out