619 |
(eq? 'c (a 2) (a 5)))) |
(eq? 'c (a 2) (a 5)))) |
620 |
(interaction-environment))) |
(interaction-environment))) |
621 |
|
|
622 |
(expect-fail "internal defines with begin" |
(pass-if "internal defines with begin" |
623 |
(false-if-exception |
(false-if-exception |
624 |
(eval '(let ((a identity) (b identity) (c identity)) |
(eval '(let ((a identity) (b identity) (c identity)) |
625 |
(define (a x) (if (= x 0) 'a (b (- x 1)))) |
(define (a x) (if (= x 0) 'a (b (- x 1)))) |
631 |
(eq? 'c (a 2) (a 5)))) |
(eq? 'c (a 2) (a 5)))) |
632 |
(interaction-environment)))) |
(interaction-environment)))) |
633 |
|
|
634 |
(expect-fail "internal defines with empty begin" |
(pass-if "internal defines with empty begin" |
635 |
(false-if-exception |
(false-if-exception |
636 |
(eval '(let ((a identity) (b identity) (c identity)) |
(eval '(let ((a identity) (b identity) (c identity)) |
637 |
(define (a x) (if (= x 0) 'a (b (- x 1)))) |
(define (a x) (if (= x 0) 'a (b (- x 1)))) |