*** empty log message ***

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index f6864b4..52feeb2 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,10 @@
+2004-09-26  Kevin Ryde  <user42@zip.com.au>
+
+       * optargs.scm (let-optional-template, let-keywords-template): Change
+       "(begin body)" to "(let () body)" for empty bindings, since the former
+       allows "internal defines" in body leak out to the surrounding
+       environment.
+
 2004-09-23  Marius Vollmer  <mvo@zagadka.de>
 
        * boot-9.scm (handle-system-error): Pass rest argument to

diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index 1f9e603..18f918d 100644 (file)
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-26  Kevin Ryde  <user42@zip.com.au>
+
+       * tests/optargs.test (let-keywords, let-keywords*, let-optional,
+       let-optional*): Add tests of internal defines when no bindings.
+
 2004-09-25  Marius Vollmer  <mvo@zagadka.de>
 
        * standalone/Makefile.am (AM_LDFLAGS, LD_FLAGS): Use AM_LDFLAGS