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

diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index c32c850..38dfe83 100644 (file)
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -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>
 
        * tests/srfi-26.test: New.

diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index b01c163..36a3c16 100644 (file)
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -660,6 +660,18 @@
   (pass-if-exception "missing body expression"
     exception:missing-body-expr
     (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))))
 
 (with-test-prefix "set!"