mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

* Remove calls to symbol-interned? which have always been useless, but now

Browse source 
have become wrong since symbols and bindings are separated.
This commit is contained in:
Dirk Herrmann 2000-12-29 15:47:16 +00:00
parent 5d2b97cd07
commit 1746633025
2 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
ice-9/ChangeLog
View file

@ -1,3 +1,13 @@
2000-12-29 Dirk Herrmann <D.Herrmann@tu-bs.de>
* 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 <D.Herrmann@tu-bs.de> 2000-12-13 Dirk Herrmann <D.Herrmann@tu-bs.de>
* session.scm (apropos): Completed the last patch, which did only * session.scm (apropos): Completed the last patch, which did only

6
ice-9/boot-9.scm
View file

@ -1440,8 +1440,7 @@
(define (root-module-closure m s define?) (define (root-module-closure m s define?)
(let ((bi (and (symbol-interned? #f s) (let ((bi (builtin-variable s)))
(builtin-variable s))))
(and bi (and bi
(or define? (variable-bound? bi)) (or define? (variable-bound? bi))
(begin (begin
@ -1462,8 +1461,7 @@
;; ;;
(define (scm-module-closure m s define?) (define (scm-module-closure m s define?)
(let ((bi (and (symbol-interned? #f s) (let ((bi (builtin-variable s)))
(builtin-variable s))))
(and bi (and bi
(variable-bound? bi) (variable-bound? bi)
(begin (begin