mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 23:50:19 +02:00
Code Activity

* tests/syntax.test: Fixed test that checks for the correct

Browse source 
handling of macros in the context of internal defines.
This commit is contained in:
Dirk Herrmann 2003-11-15 11:51:17 +00:00
parent c4a56a692d
commit c3d948015a
2 changed files with 14 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test-suite/ChangeLog
View file

@ -1,3 +1,8 @@
2003-11-15 Dirk Herrmann <D.Herrmann@tu-bs.de>
* tests/syntax.test: Fixed test that checks for the correct
handling of macros in the context of internal defines.
2003-11-15 Kevin Ryde <user42@zip.com.au> 2003-11-15 Kevin Ryde <user42@zip.com.au>
* tests/bit-operations.test: Use (test-suite lib), for the benefit of * tests/bit-operations.test: Use (test-suite lib), for the benefit of

14
test-suite/tests/syntax.test
View file

@ -643,14 +643,18 @@
(eq? 'c (a 2) (a 5)))) (eq? 'c (a 2) (a 5))))
(interaction-environment)))) (interaction-environment))))
(expect-fail "internal defines with macro application" (pass-if "internal defines with macro application"
(false-if-exception (false-if-exception
(eval '(begin (eval '(begin
(defmacro a forms (defmacro my-define forms
(cons 'define forms)) (cons 'define forms))
(let ((c identity) (x #t)) (let ((a identity) (b identity) (c identity))
(define (a x y) (and x y)) (define (a x) (if (= x 0) 'a (b (- x 1))))
(a (c x) (c x)))) (my-define (b x) (if (= x 0) 'b (c (- x 1))))
(define (c x) (if (= x 0) 'c (a (- x 1))))
(and (eq? 'a (a 0) (a 3))
(eq? 'b (a 1) (a 4))
(eq? 'c (a 2) (a 5)))))
(interaction-environment)))) (interaction-environment))))
(pass-if-exception "missing body expression" (pass-if-exception "missing body expression"