summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-08 04:00:53 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-08 04:00:53 +0100
commitf04b9429de1cb815c2ad680603077be6a0d10132 (patch)
treed3f8b86b1caf84d09385aed8cdcb28a394a49a9d
parent6a197dae0735eb92f66ee98a8ca4137eac7649ee (diff)
downloadgeiser-chez-f04b9429de1cb815c2ad680603077be6a0d10132.tar.gz
geiser-chez-f04b9429de1cb815c2ad680603077be6a0d10132.tar.bz2
Racket: fix for prompt display on ,enter
-rw-r--r--scheme/racket/geiser/user.rkt13
1 files changed, 6 insertions, 7 deletions
diff --git a/scheme/racket/geiser/user.rkt b/scheme/racket/geiser/user.rkt
index e615400..26c351b 100644
--- a/scheme/racket/geiser/user.rkt
+++ b/scheme/racket/geiser/user.rkt
@@ -36,6 +36,7 @@
(define (geiser-eval)
(define geiser-main (module->namespace 'geiser/main))
+ (geiser-send-null #t)
(let* ((mod (read))
(lang (read))
(form (read)))
@@ -57,13 +58,11 @@
[form ((current-read-interaction) (object-name in) in)])
(syntax-case form ()
[(uq cmd) (eq? 'unquote (syntax-e #'uq))
- (begin
- (geiser-send-null #t)
- (case (syntax-e #'cmd)
- ((enter) (enter! (read) #'cmd))
- ((geiser-eval) (geiser-eval))
- ((geiser-no-values) (datum->syntax #f (void)))
- (else form)))]
+ (case (syntax-e #'cmd)
+ ((enter) (enter! (read) #'cmd))
+ ((geiser-eval) (geiser-eval))
+ ((geiser-no-values) (datum->syntax #f (void)))
+ (else form))]
[_ form])))
(define geiser-prompt-read (make-repl-reader geiser-read))