diff options
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 |