branch: elpa/geiser-racket
commit d789d5f7db95d5fe225b499ddfd1acaeeedfa834
Author: Jose Antonio Ortega Ruiz <j...@gnu.org>
Commit: Jose Antonio Ortega Ruiz <j...@gnu.org>
Racket: fix for prompt display on ,enter
---
geiser/user.rkt | 13 ++++++-------
1 file changed, 6 insertions(+), 7 deletions(-)
diff --git a/geiser/user.rkt b/geiser/user.rkt
index e615400..26c351b 100644
--- a/geiser/user.rkt
+++ b/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))
