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

doubly-weak callers db

Browse source 
* module/system/xref.scm (ensure-callers-db): Store the callers db as a
  doubly-weak hash table.
This commit is contained in:
Andy Wingo 2009-03-18 00:46:16 +01:00
parent b190790255
commit 7eba9c99c2
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/xref.scm
View file

@ -116,7 +116,7 @@
(if (not *callers-db*) (if (not *callers-db*)
(begin (begin
(set! db (make-hash-table)) (set! db (make-doubly-weak-hash-table))
(visit-module the-root-module) (visit-module the-root-module)
(set! *callers-db* db))))) (set! *callers-db* db)))))