~ chicken-core (chicken-5) 4344088e5a77d08323c539c02f6e84793f5f6db6

commit 4344088e5a77d08323c539c02f6e84793f5f6db6
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Jul 29 23:01:54 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Jul 29 23:01:54 2010 +0200

    removed man-or-boy test

diff --git a/tests/man-or-boy.scm b/tests/man-or-boy.scm
deleted file mode 100644
index 73391f2b..00000000
--- a/tests/man-or-boy.scm
+++ /dev/null
@@ -1,35 +0,0 @@
-;;;; man-or-boy.scm - Knuth's 
-
-
-;; begin
-;;   real procedure A (k, x1, x2, x3, x4, x5);
-;;   value k; integer k;
-;;   begin
-;;     real procedure B;
-;;     begin k:= k - 1;
-;;           B:= A := A (k, B, x1, x2, x3, x4);
-;;     end;
-;;     if k <= 0 then A:= x4 + x5 else B;
-;;   end;
-;;   outreal (A (10, 1, -1, -1, 1, 0));
-;; end;
-
-
-(define (A k x1 x2 x3 x4 x5)
-  (define (B)
-    (set! k (- k 1))
-    (A k B x1 x2 x3 x4))
-  (if (<= k 0)
-      (+ (x4) (x5))
-      (B)))
-
-(do ((i 1000 (sub1 i)))
-    ((zero? i))
-  (assert
-   (= -175416
-      (A 20
-	 (lambda () 1) 
-	 (lambda () -1)
-	 (lambda () -1)
-	 (lambda () 1)
-	 (lambda () 0)))))
\ No newline at end of file