branch: elpa/geiser-racket
commit dc63508637038113df76524fb71355532668e6e0
Author: Jose Antonio Ortega Ruiz <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
Racket: use the proper interaction port for input (#32844)
Thanks to Caleb Reach.
We were using current-input-port, which is not the right port in
graphical environments.
---
geiser/user.rkt | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/geiser/user.rkt b/geiser/user.rkt
index 3ef978b..621b47f 100644
--- a/geiser/user.rkt
+++ b/geiser/user.rkt
@@ -64,7 +64,7 @@
(define ((geiser-read prompt))
(prompt)
(flush-output)
- (let* ([in (current-input-port)]
+ (let* ([in ((current-get-interaction-input-port))]
[form ((current-read-interaction) (object-name in) in)])
(syntax-case form ()
[(uq cmd) (eq? 'unquote (syntax-e #'uq))
