From 39127bc5108a85bb721120a72f178a858e73dac5 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Sat, 25 Sep 2004 22:20:16 +0000
Subject: [PATCH] *** empty log message ***

---
 ice-9/ChangeLog      | 7 +++++++
 test-suite/ChangeLog | 5 +++++
 2 files changed, 12 insertions(+)

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index fb59e64a7..cdaf403c0 100644
--- 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-04  Kevin Ryde  <user42@zip.com.au>
 
 	* streams.scm (stream-for-each-many): Correction, should recurse into
diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index 32182c3fe..8ae096272 100644
--- 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-09  Kevin Ryde  <user42@zip.com.au>
 
 	* tests/ports.test (port-column): Further tests, of new \a \b \r.