From dfc900c0e2f59edfb06bbdabfc4bcde172d6ced9 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Thu, 11 Nov 2010 03:01:33 +0100 Subject: Partial work (connections working) --- scheme/racket/geiser/user.rkt | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'scheme/racket') diff --git a/scheme/racket/geiser/user.rkt b/scheme/racket/geiser/user.rkt index 37763b9..412cfe7 100644 --- a/scheme/racket/geiser/user.rkt +++ b/scheme/racket/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)]) -- cgit v1.2.3