[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/ice-9 ChangeLog boot-9.scm
From: |
Dirk Herrmann |
Subject: |
guile/guile-core/ice-9 ChangeLog boot-9.scm |
Date: |
Fri, 29 Dec 2000 07:47:16 -0800 |
CVSROOT: /cvs
Module name: guile
Changes by: Dirk Herrmann <address@hidden> 00/12/29 07:47:16
Modified files:
guile-core/ice-9: ChangeLog boot-9.scm
Log message:
* Remove calls to symbol-interned? which have always been useless, but
now
have become wrong since symbols and bindings are separated.
CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/ice-9/ChangeLog.diff?r1=1.363&r2=1.364
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/ice-9/boot-9.scm.diff?r1=1.219&r2=1.220
Patches:
Index: guile/guile-core/ice-9/ChangeLog
diff -u guile/guile-core/ice-9/ChangeLog:1.363
guile/guile-core/ice-9/ChangeLog:1.364
--- guile/guile-core/ice-9/ChangeLog:1.363 Wed Dec 13 01:44:28 2000
+++ guile/guile-core/ice-9/ChangeLog Fri Dec 29 07:47:16 2000
@@ -1,3 +1,13 @@
+2000-12-29 Dirk Herrmann <address@hidden>
+
+ * boot-9.scm (root-module-closure, scm-module-closure): Remove
+ calls '(symbol-interned? #f s)'. Formerly, these calls were
+ basically no-ops, guaranteed to return #t if 's' was a symbol.
+ After the separation of symbols and bindings, a call to
+ '(symbol-interned? #f s)' will only return #t if there really is a
+ binding for 's' in the scm_symhash table. Thanks to Dale P. Smith
+ for providing a test case that helped finding this bug.
+
2000-12-13 Dirk Herrmann <address@hidden>
* session.scm (apropos): Completed the last patch, which did only
Index: guile/guile-core/ice-9/boot-9.scm
diff -u guile/guile-core/ice-9/boot-9.scm:1.219
guile/guile-core/ice-9/boot-9.scm:1.220
--- guile/guile-core/ice-9/boot-9.scm:1.219 Tue Dec 12 10:10:56 2000
+++ guile/guile-core/ice-9/boot-9.scm Fri Dec 29 07:47:16 2000
@@ -1440,8 +1440,7 @@
(define (root-module-closure m s define?)
- (let ((bi (and (symbol-interned? #f s)
- (builtin-variable s))))
+ (let ((bi (builtin-variable s)))
(and bi
(or define? (variable-bound? bi))
(begin
@@ -1462,8 +1461,7 @@
;;
(define (scm-module-closure m s define?)
- (let ((bi (and (symbol-interned? #f s)
- (builtin-variable s))))
+ (let ((bi (builtin-variable s)))
(and bi
(variable-bound? bi)
(begin