summaryrefslogtreecommitdiff
path: root/scheme/chibi/geiser
diff options
context:
space:
mode:
Diffstat (limited to 'scheme/chibi/geiser')
-rw-r--r--scheme/chibi/geiser/geiser.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/scheme/chibi/geiser/geiser.scm b/scheme/chibi/geiser/geiser.scm
index a6b37f3..fe0569e 100644
--- a/scheme/chibi/geiser/geiser.scm
+++ b/scheme/chibi/geiser/geiser.scm
@@ -30,7 +30,8 @@
(values)))
(define (geiser:module-completions prefix . rest)
- (let ((modules (map car (available-modules))))
+ ;; (available-modules) walks the directory tree and is too slow
+ (let ((modules (map car *modules*)))
(map write-to-string
(delete-duplicates
(filter (lambda (module)