summaryrefslogtreecommitdiff
path: root/geiser
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-04-01 07:45:32 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-04-01 07:45:32 +0200
commit28722c06b7c709b9a44c44447d9740b4de7e15d8 (patch)
tree432560f50040ff618cd4bb7c30cbc0346827bf10 /geiser
parent33b8c5311efda6d0b1aaaad0465f59415f5540c4 (diff)
downloadgeiser-guile-28722c06b7c709b9a44c44447d9740b4de7e15d8.tar.gz
geiser-guile-28722c06b7c709b9a44c44447d9740b4de7e15d8.tar.bz2
Bug fix: really remove killed buffers from the list of closed repls.
Diffstat (limited to 'geiser')
-rw-r--r--geiser/modules.scm6
-rw-r--r--geiser/xref.scm2
2 files changed, 5 insertions, 3 deletions
diff --git a/geiser/modules.scm b/geiser/modules.scm
index 0afb8fd..fdc3f3f 100644
--- a/geiser/modules.scm
+++ b/geiser/modules.scm
@@ -35,7 +35,7 @@
#:use-module (ice-9 session)
#:use-module (srfi srfi-1))
-(define (symbol-module sym)
+(define (symbol-module sym . all)
(and sym
(catch 'module-name
(lambda ()
@@ -44,7 +44,9 @@
(throw 'module-name (module-name module)) init))
#f
(regexp-quote (symbol->string sym))
- (apropos-fold-accessible (current-module))))
+ (if (or (null? all) (not (car all)))
+ (apropos-fold-accessible (current-module))
+ apropos-fold-all)))
(lambda (key . args)
(and (eq? key 'module-name) (car args))))))
diff --git a/geiser/xref.scm b/geiser/xref.scm
index ec86d7c..33821b7 100644
--- a/geiser/xref.scm
+++ b/geiser/xref.scm
@@ -72,7 +72,7 @@
(make-xref proc name (symbol-module name))))
(define (callers sym)
- (let ((mod (symbol-module sym)))
+ (let ((mod (symbol-module sym #t)))
(and mod
(map procedure-xref (procedure-callers (cons mod sym))))))