guile/guile-core/ice-9 ChangeLog boot-9.scm

[Dirk Herrmann]

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