[Chicken-hackers] similar letrec issue

[Thomas Bushnell BSG]

This is likely the same bug in a different test case (also from
http://sisc-scheme.org/r5rs_pitfall.scm):

(letrec ((x (call/cc list)) (y (call/cc list)))
    (cond ((procedure? x) (x (pair? y)))
          ((procedure? y) (y (pair? x))))
    (let ((x (car x)) (y (car y)))
      (and (call/cc x) (call/cc y) (call/cc x))))

Should return #t, but it returns #f in Chicken 3.4.

On the other hand, Chicken Scheme gets this one right:

(letrec ((x (call-with-current-continuation
                  (lambda (c)
                    (list #T c)))))
      (if (car x)
          ((cadr x) (list #F (lambda () x)))
          (eq? x ((cadr x)))))

should return #t, and it does.

Thomas