diff options
Diffstat (limited to 'scheme')
| -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)) |