diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-08 04:00:53 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-08 04:00:53 +0100 |
| commit | f04b9429de1cb815c2ad680603077be6a0d10132 (patch) | |
| tree | d3f8b86b1caf84d09385aed8cdcb28a394a49a9d | |
| parent | 6a197dae0735eb92f66ee98a8ca4137eac7649ee (diff) | |
| download | geiser-guile-f04b9429de1cb815c2ad680603077be6a0d10132.tar.gz geiser-guile-f04b9429de1cb815c2ad680603077be6a0d10132.tar.bz2 | |
Racket: fix for prompt display on ,enter
| -rw-r--r-- | scheme/racket/geiser/user.rkt | 13 |
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)) |