summaryrefslogtreecommitdiff
path: root/scheme/racket/geiser/user.rkt
diff options
context:
space:
mode:
Diffstat (limited to 'scheme/racket/geiser/user.rkt')
-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))