PLT: M-. is also able to locate modules. Refactorings.

1 files changed, 1 insertions, 23 deletions

diff --git a/scheme/plt/geiser/utils.ss b/scheme/plt/geiser/utils.ss
index 557cf26..84c6964 100644
--- a/scheme/plt/geiser/utils.ss
+++ b/scheme/plt/geiser/utils.ss
@@ -26,32 +26,10 @@
 
 #lang scheme
 
-(provide module-path-name->name
-         pair->list
+(provide pair->list
          keyword->symbol
          symbol->keyword)
 
-(require srfi/13)
-
-(define (module-path-name->name path)
-  (cond ((path? path)
-         (let* ((path (path->string path))
-                (cpaths (map (compose path->string path->directory-path)
-                             (current-library-collection-paths)))
-                (prefix-len (lambda (p)
-                              (let ((pl (string-length p)))
-                                (if (= pl (string-prefix-length p path)) pl 0))))
-                (lens (map prefix-len cpaths))
-                (real-path (substring path (apply max lens))))
-           (if (absolute-path? real-path)
-               (call-with-values (lambda () (split-path path))
-                 (lambda (_ basename __) (path->string basename)))
-               (regexp-replace "\\.[^./]*$" real-path ""))))
-        ((eq? path '#%kernel) "(kernel)")
-        ((string? path) path)
-        ((symbol? path) (symbol->string path))
-        (else "<top>")))
-
 (define (pair->list pair)
   (let loop ((d pair) (s '()))
     (cond ((null? d) (reverse s))