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
[EMAIL PROTECTED]
http://mail.gnu.org/mailman/listinfo/bug-guile
