[nongnu] elpa/geiser-racket ac54a9e 051/191: Partial work (connections working)

[Philip Kaludercic]

branch: elpa/geiser-racket
commit ac54a9e12013472000c59f3a51a59c2facf77f57
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Partial work (connections working)
---
 geiser/user.rkt | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/geiser/user.rkt b/geiser/user.rkt
index 37763b9..412cfe7 100644
--- a/geiser/user.rkt
+++ b/geiser/user.rkt
@@ -32,11 +32,8 @@
 (define orig-loader (current-load/use-compiled))
 (define geiser-loader (module-loader orig-loader))
 
-(define geiser-send-null (make-parameter #f))
-
 (define (geiser-eval)
   (define geiser-main (module->namespace 'geiser/main))
-  (geiser-send-null #t)
   (let* ([mod (read)]
          [lang (read)]
          [form (read)])
@@ -49,10 +46,7 @@
                                [else ((geiser:eval lang) form mod)])))))
 
 (define (geiser-read)
-  (if (geiser-send-null)
-      (begin (geiser-send-null #f)
-            (write-char #\nul))
-      (printf "racket@~a> " (namespace->module-name (current-namespace))))
+  (printf "racket@~a> " (namespace->module-name (current-namespace)))
   (flush-output)
   (let* ([in (current-input-port)]
         [form ((current-read-interaction) (object-name in) in)])