summaryrefslogtreecommitdiff
path: root/scheme/plt/geiser.ss
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-01 23:10:53 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-01 23:10:53 +0200
commit410eaca7a6ed7565bdacc92e411fa20627da08e7 (patch)
treec78052dc3be4773daf74049d50b58f375a23ded4 /scheme/plt/geiser.ss
parentf58c500ab06445481e710995ec5779ebd5ddc1b0 (diff)
downloadgeiser-guile-410eaca7a6ed7565bdacc92e411fa20627da08e7.tar.gz
geiser-guile-410eaca7a6ed7565bdacc92e411fa20627da08e7.tar.bz2
PLT: Current module in REPL prompt and don't change it after C-cC-l.
Diffstat (limited to 'scheme/plt/geiser.ss')
-rw-r--r--scheme/plt/geiser.ss16
1 files changed, 4 insertions, 12 deletions
diff --git a/scheme/plt/geiser.ss b/scheme/plt/geiser.ss
index 9f99641..dd6b7c3 100644
--- a/scheme/plt/geiser.ss
+++ b/scheme/plt/geiser.ss
@@ -35,9 +35,7 @@
geiser/make-repl-reader)
(compile-enforce-module-constants #f)
- (require (lib "geiser/eval")
- (lib "geiser/completions")
- (lib "geiser/locations"))
+ (require geiser/eval geiser/completions geiser/locations)
(define geiser/eval eval-in)
(define geiser/compile compile-in)
@@ -47,20 +45,14 @@
(define geiser/completions completions)
(define geiser/symbol-location symbol-location)
- (define prompt (make-parameter "mzscheme@(geiser)"))
- (define (geiser/make-repl-reader builtin-reader)
- (lambda ()
- (display (prompt))
- (builtin-reader))))
+ (define (geiser/make-repl-reader)
+ (compose (make-repl-reader (current-prompt-read)) current-namespace)))
(require scheme/help)
(require 'geiser)
(current-prompt-read
- (let ([old (current-prompt-read)])
- (lambda ()
- (current-prompt-read
- ((dynamic-require ''geiser 'geiser/make-repl-reader) old)))))
+ ((dynamic-require ''geiser 'geiser/make-repl-reader)))
;;; geiser.ss ends here