From dcbe97e5329a06a366cbbd428e8076f7cca277ee Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz 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/plt') 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)) stringnamespace mod)))))) +(define (startup) + (thread update-module-cache) + (void)) + +(startup) + ;;; modules.ss ends here -- cgit v1.2.3