mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 03:54:12 +02:00
Code Activity

* session.scm (apropos-internal): Musn't initialize symbol

Browse source 
accumulator with a constant pair.  That led to mutation of the
source!
This commit is contained in:
Mikael Djurfeldt 1997-08-25 15:07:18 +00:00
parent f2ae0a19bd
commit a5be27cd24
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/ChangeLog
View file

@ -1,3 +1,9 @@
Mon Aug 25 16:15:55 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* session.scm (apropos-internal): Musn't initialize symbol
accumulator with a constant pair. That led to mutation of the
source!
Sun Aug 24 01:03:10 1997 Mikael Djurfeldt <mdj@kenneth> Sun Aug 24 01:03:10 1997 Mikael Djurfeldt <mdj@kenneth>
* session.scm (vector-for-each): Removed. * session.scm (vector-for-each): Removed.

2
ice-9/session.scm
View file

@ -88,7 +88,7 @@
(modules (cons (current-module) (modules (cons (current-module)
(module-uses (current-module)))) (module-uses (current-module))))
(recorded (make-vector 61 '())) (recorded (make-vector 61 '()))
(vars '(#f))) (vars (cons '() '())))
(let ((last vars)) (let ((last vars))
(for-each (for-each
(lambda (module) (lambda (module)