From dcbe97e5329a06a366cbbd428e8076f7cca277ee Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Wed, 31 Mar 2010 11:54:06 +0200
Subject: PLT: preloading available module list.

---
 scheme/plt/geiser/modules.ss | 22 ++++++++++++++++------
 1 file changed, 16 insertions(+), 6 deletions(-)

(limited to 'scheme')

diff --git a/scheme/plt/geiser/modules.ss b/scheme/plt/geiser/modules.ss
index ef6530a..9842174 100644
--- a/scheme/plt/geiser/modules.ss
+++ b/scheme/plt/geiser/modules.ss
@@ -108,13 +108,15 @@
         (fold-files visit-module-path acc))
       acc))
 
+(define (known-modules)
+  (sort (foldl find-modules '() (current-library-collection-paths)) string<?))
+
 (define module-cache #f)
+(define (update-module-cache)
+  (when (not module-cache) (set! module-cache (known-modules))))
 
 (define (module-list)
-  (when (not module-cache)
-    (set! module-cache
-          (sort (foldl find-modules '() (current-library-collection-paths))
-                string<?)))
+  (update-module-cache)
   module-cache)
 
 (define (module-exports mod)
@@ -124,8 +126,10 @@
                 ls))
   (define (classify-ids ids ns)
     (let loop ((ids ids) (procs '()) (vars '()))
-      (cond ((null? ids) `((procs ,@(reverse procs)) (vars ,@(reverse vars))))
-            ((procedure? (namespace-variable-value (car ids) #t (const #f) ns))
+      (cond ((null? ids)
+             `((procs ,@(reverse procs)) (vars ,@(reverse vars))))
+            ((procedure?
+              (namespace-variable-value (car ids) #t (const #f) ns))
              (loop (cdr ids) (cons (car ids) procs) vars))
             (else (loop (cdr ids) procs (cons (car ids) vars))))))
   (let-values (((reg syn)
@@ -135,4 +139,10 @@
           (reg (extract-ids reg)))
       `((syntax ,@syn) ,@(classify-ids reg (module-spec->namespace mod))))))
 
+(define (startup)
+ (thread update-module-cache)
+ (void))
+
+(startup)
+
 ;;; modules.ss ends here
-- 
cgit v1.2.3