diff options
| author | Peter <craven@gmx.net> | 2016-04-28 16:29:48 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2016-04-30 19:41:44 +0200 |
| commit | cc8c6e6b5b5a246ba2aee600847c4a89a0ed33c0 (patch) | |
| tree | f022a136e627d488d20621ac919797ab28d772ed /scheme/chibi/geiser | |
| parent | d9612b615af3cb55d98503a1a553a070f75149f2 (diff) | |
| download | geiser-guile-cc8c6e6b5b5a246ba2aee600847c4a89a0ed33c0.tar.gz geiser-guile-cc8c6e6b5b5a246ba2aee600847c4a89a0ed33c0.tar.bz2 | |
Use faster module list
Diffstat (limited to 'scheme/chibi/geiser')
| -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) |