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 | d7657c533921de69d1805f7bf3b40d9426d7800b (patch) | |
| tree | 89db151833ddf64347f2de819ae04f74a19c4947 /scheme/guile/geiser/modules.scm | |
| parent | c09f5bbaa836d04a9babdff0943dc596dbc68e38 (diff) | |
| download | geiser-chez-d7657c533921de69d1805f7bf3b40d9426d7800b.tar.gz geiser-chez-d7657c533921de69d1805f7bf3b40d9426d7800b.tar.bz2 | |
Improvements to module name support (using prefixes) and Guile support.
Diffstat (limited to 'scheme/guile/geiser/modules.scm')
| -rw-r--r-- | scheme/guile/geiser/modules.scm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/scheme/guile/geiser/modules.scm b/scheme/guile/geiser/modules.scm index fdc3f3f..834e51c 100644 --- a/scheme/guile/geiser/modules.scm +++ b/scheme/guile/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 |