summaryrefslogtreecommitdiff
path: root/scheme/racket/geiser/user.rkt
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2013-06-11 15:29:25 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2013-06-11 15:29:25 +0200
commit5e1b969e20004f49f1174346a612269c56d0d785 (patch)
tree08b5b40eb500c22acea2b5e136b0b09343f3773d /scheme/racket/geiser/user.rkt
parent7b1a1d046059eb2ce68ea02706a0e7494c39684f (diff)
downloadgeiser-chez-5e1b969e20004f49f1174346a612269c56d0d785.tar.gz
geiser-chez-5e1b969e20004f49f1174346a612269c56d0d785.tar.bz2
racket: struggling with submodules
Submodule (re)loading is not without pecularities. In particular, module[*+] submodules are not visited the first time one enters its parent, but once you load them once, they're revisited every time we load the parent afterwards--racket's native enter! exhibits the same behaviour, so i'm guessing we'll have to live with that. There is however a glitch in that submodules can only be reloaded then by loading the parent, so we need to confirm that this is expected behaviour and, if it is, automating the parent's load when the submodule's is requested. On the other hand, entering a module[*+] is not working in Geiser yet, and it does in plain racket, so this one is our fault. Working on it.
Diffstat (limited to 'scheme/racket/geiser/user.rkt')
-rw-r--r--scheme/racket/geiser/user.rkt4
1 files changed, 2 insertions, 2 deletions
diff --git a/scheme/racket/geiser/user.rkt b/scheme/racket/geiser/user.rkt
index cd3fea6..31f789e 100644
--- a/scheme/racket/geiser/user.rkt
+++ b/scheme/racket/geiser/user.rkt
@@ -28,7 +28,7 @@
(define last-entered (make-parameter ""))
(define (do-enter mod name)
- (enter-module mod)
+ (visit-module mod)
(current-namespace (module->namespace mod))
(last-entered name))
@@ -82,7 +82,7 @@
(let* ([mod (read)]
[res (call-with-result
(lambda ()
- (enter-module (cond [(file-mod? mod) mod]
+ (visit-module (cond [(file-mod? mod) mod]
[(path-string? mod) `(file ,mod)]
[(submod-path mod)]
[else (module-error stx mod)]))