unofficial mirror of bug-guile@gnu.org 
 help / color / mirror / Atom feed
* Failing test from r4rstest.scm
@ 2003-01-06 19:55 Neil Jerram
  2003-01-08  1:34 ` Thien-Thi Nguyen
  0 siblings, 1 reply; 3+ messages in thread
From: Neil Jerram @ 2003-01-06 19:55 UTC (permalink / raw)


I just tried adding this test (from r4rstest.scm) to r4rs.test ...

(SECTION 5 2 1)
(define add3 (lambda (x) (+ x 3)))
(test 6 'define (add3 3))
(define first car)
(test 1 'define (first '(1 2)))
(define old-+ +)
(begin (begin (begin)
              (begin (begin (begin) (define + (lambda (x y) (list y x)))
                            (begin)))
              (begin))
       (begin)
       (begin (begin (begin) (test '(3 6) 'add3 6)  ; FAILS HERE
                     (begin))))


... but it fails.  Any idea why?

        Neil



_______________________________________________
Bug-guile mailing list
Bug-guile@gnu.org
http://mail.gnu.org/mailman/listinfo/bug-guile


^ permalink raw reply	[flat|nested] 3+ messages in thread
end of thread, other threads:[~2003-01-08 20:18 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2003-01-06 19:55 Failing test from r4rstest.scm Neil Jerram
2003-01-08  1:34 ` Thien-Thi Nguyen
2003-01-08 20:18   ` Neil Jerram

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).