Re: make check fails (guile 1.4.1.97)

[Thien-Thi Nguyen]

   From: Andreas Voegele <address@hidden>
   Date: Fri, 16 Jan 2004 13:45:56 +0100

   Linux/i386 with gcc 3.3.2, binutils 2.14 and glibc 2.3.2
   FAIL: r4rs.test: (6 9): (#<procedure leaf-eq? (x y)> [...])

could you replace the `leaf-eq?' proc in r4rs.test w/ the following and
post or email the output of "export DEBUG=1 ; ./check-guile r4rs.test"
run from $(top_builddir)?

(define (leaf-eq? x y)
  (let* ((eot (list 'eot))
         (xf (next-leaf-generator x eot))
         (yf (next-leaf-generator y eot)))
    (letrec ((loop (lambda (x y)
                     (pk 'x x 'y y)
                     (cond ((not (eq? x y)) #f)
                           ((eq? eot x) #t)
                           (else (loop (xf) (yf)))))))
      (loop (xf) (yf)))))

there is an extra `pk' here, to see where things are failing.  in the
meantime i'll try to find a system where those software versions are
installed (or install them locally but that will take more time).  if
anyone has a handy ssh-able shell account dmz'd somewhere w/ the above
software that i can use temporarily to debug this, feel free to ping me
off-list.

thi