bug-guile
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Failing test from r4rstest.scm


From: Neil Jerram
Subject: Failing test from r4rstest.scm
Date: 06 Jan 2003 19:55:26 +0000
User-agent: Gnus/5.0808 (Gnus v5.8.8) Emacs/20.7

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





reply via email to

[Prev in Thread] Current Thread [Next in Thread]