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

* tests/syntax.test: Added test for unmemoizing internal defines.

Browse source
This commit is contained in:
Dirk Herrmann 2004-01-23 14:24:37 +00:00
parent 82b6774893
commit a264c013fd
2 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/ChangeLog
View file

@ -1,3 +1,7 @@
2004-01-23 Dirk Herrmann <dirk@dirk-herrmanns-seiten.de>
* tests/syntax.test: Added test for unmemoizing internal defines.
2004-01-21 Marius Vollmer <mvo@zagadka.de> 2004-01-21 Marius Vollmer <mvo@zagadka.de>
* tests/srfi-26.test: New. * tests/srfi-26.test: New.

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

@ -660,6 +660,18 @@
(pass-if-exception "missing body expression" (pass-if-exception "missing body expression"
exception:missing-body-expr exception:missing-body-expr
(eval '(let () (define x #t)) (eval '(let () (define x #t))
(interaction-environment)))
(pass-if "unmemoization"
(eval '(begin
(define (foo)
(define (bar)
'ok)
(bar))
(foo)
(equal?
(procedure-source foo)
'(lambda () (letrec ((bar (lambda () (quote ok)))) (bar)))))
(interaction-environment)))) (interaction-environment))))
(with-test-prefix "set!" (with-test-prefix "set!"