From cc8c6e6b5b5a246ba2aee600847c4a89a0ed33c0 Mon Sep 17 00:00:00 2001
From: Peter <craven@gmx.net>
Date: Thu, 28 Apr 2016 16:29:48 +0200
Subject: Use faster module list

---
 scheme/chibi/geiser/geiser.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'scheme')

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)
-- 
cgit v1.2.3