From 1c50bcb1e89ecad683148a4e67fecfc1d82a93ce Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Mon, 11 May 2009 01:22:49 +0200
Subject: Improvements to module name support (using prefixes) and Guile
 support.

---
 geiser/modules.scm | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

(limited to 'geiser/modules.scm')

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
-- 
cgit v1.2.3