[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
- Failing test from r4rstest.scm,
Neil Jerram <=