summaryrefslogtreecommitdiff
path: root/scheme/guile/geiser/modules.scm
diff options
context:
space:
mode:
Diffstat (limited to 'scheme/guile/geiser/modules.scm')
-rw-r--r--scheme/guile/geiser/modules.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/scheme/guile/geiser/modules.scm b/scheme/guile/geiser/modules.scm
index 0afb8fd..fdc3f3f 100644
--- a/scheme/guile/geiser/modules.scm
+++ b/scheme/guile/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))))))