diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-11 01:22:49 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-11 01:22:49 +0200 |
| commit | 1c50bcb1e89ecad683148a4e67fecfc1d82a93ce (patch) | |
| tree | 3c240e35c02f239825b83eb63824868b64bd05fb /geiser/modules.scm | |
| parent | 63ebbc1c5343be09167f84090cf9cf69bb8e776a (diff) | |
| download | geiser-guile-1c50bcb1e89ecad683148a4e67fecfc1d82a93ce.tar.gz geiser-guile-1c50bcb1e89ecad683148a4e67fecfc1d82a93ce.tar.bz2 | |
Improvements to module name support (using prefixes) and Guile support.
Diffstat (limited to 'geiser/modules.scm')
| -rw-r--r-- | geiser/modules.scm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/geiser/modules.scm b/geiser/modules.scm index fdc3f3f..834e51c 100644 --- a/geiser/modules.scm +++ b/geiser/modules.scm @@ -57,13 +57,12 @@ (define (all-modules) (let ((roots ((@@ (ice-9 session) root-modules)))) - (sort! (map (lambda (m) - (format "~A" (module-name m))) - (fold (lambda (m all) - (append (all-child-modules m) all)) - roots - roots)) - string<?))) + (map (lambda (m) + (format "~A" (module-name m))) + (fold (lambda (m all) + (append (all-child-modules m) all)) + roots + roots)))) (define (module-children mod-name) (let* ((elts (hash-fold classify-module-object |