summaryrefslogtreecommitdiff
path: root/scheme/racket/geiser/modules.rkt
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-09 21:52:56 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-09 21:52:56 +0100
commit27916d2da2e43f231daff12249b19701f5a27b4f (patch)
tree8425627764ba5a195a25665da5a2c62ce2f221bd /scheme/racket/geiser/modules.rkt
parentd830e14a4010284b4085d9942bfd856b0360d793 (diff)
parentf2bf4b2cda05fe8c32ee74ce3b5cce743d81de61 (diff)
downloadgeiser-guile-27916d2da2e43f231daff12249b19701f5a27b4f.tar.gz
geiser-guile-27916d2da2e43f231daff12249b19701f5a27b4f.tar.bz2
Merge branch 'master' into guile-meta
Conflicts: elisp/geiser-guile.el
Diffstat (limited to 'scheme/racket/geiser/modules.rkt')
-rw-r--r--scheme/racket/geiser/modules.rkt6
1 files changed, 5 insertions, 1 deletions
diff --git a/scheme/racket/geiser/modules.rkt b/scheme/racket/geiser/modules.rkt
index 9b640ec..0591a92 100644
--- a/scheme/racket/geiser/modules.rkt
+++ b/scheme/racket/geiser/modules.rkt
@@ -14,6 +14,7 @@
(provide load-module
ensure-module-spec
module-spec->namespace
+ namespace->module-name
namespace->module-path-name
module-path-name->name
module-spec->path-name
@@ -74,11 +75,14 @@
(call-with-values (lambda () (split-path path))
(lambda (_ basename __) (path->string basename)))
(regexp-replace "\\.[^./]*$" real-path "")))]
- [(eq? path '#%kernel) "(kernel)"]
+ ;; [(eq? path '#%kernel) "(kernel)"]
[(string? path) path]
[(symbol? path) (symbol->string path)]
[else ""]))
+(define namespace->module-name
+ (compose module-path-name->name namespace->module-path-name))
+
(define (skippable-dir? path)
(call-with-values (lambda () (split-path path))
(lambda (_ basename __)