[nongnu] elpa/geiser-racket d789d5f 046/191: Racket: fix for prompt display on , enter

[Philip Kaludercic]

branch: elpa/geiser-racket
commit d789d5f7db95d5fe225b499ddfd1acaeeedfa834
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@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))