diff options
| -rw-r--r-- | scheme/chibi/geiser/geiser.scm | 3 |
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) |