diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-08 03:39:36 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-08 03:39:36 +0100 |
| commit | 6a197dae0735eb92f66ee98a8ca4137eac7649ee (patch) | |
| tree | 28fd30b1c68748fb72943e63f8eff3f9a56038a7 /scheme/racket/geiser/modules.rkt | |
| parent | a73fdcb10bb6144d7befbc4c553102c9816e86c9 (diff) | |
| download | geiser-guile-6a197dae0735eb92f66ee98a8ca4137eac7649ee.tar.gz geiser-guile-6a197dae0735eb92f66ee98a8ca4137eac7649ee.tar.bz2 | |
Racket: use EOT token for internal communications
Diffstat (limited to 'scheme/racket/geiser/modules.rkt')
| -rw-r--r-- | scheme/racket/geiser/modules.rkt | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/scheme/racket/geiser/modules.rkt b/scheme/racket/geiser/modules.rkt index 5c6ba1f..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 @@ -79,6 +80,9 @@ [(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 __) |