summaryrefslogtreecommitdiff
path: root/scheme/racket/geiser
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-11 03:01:33 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-11 03:01:33 +0100
commitdfc900c0e2f59edfb06bbdabfc4bcde172d6ced9 (patch)
treeff2937e287b418520e082d06907e5027601e4eee /scheme/racket/geiser
parent3db4017f11317c497fba0e97adb5fd1a18ca4534 (diff)
downloadgeiser-chez-dfc900c0e2f59edfb06bbdabfc4bcde172d6ced9.tar.gz
geiser-chez-dfc900c0e2f59edfb06bbdabfc4bcde172d6ced9.tar.bz2
Partial work (connections working)
Diffstat (limited to 'scheme/racket/geiser')
-rw-r--r--scheme/racket/geiser/user.rkt8
1 files changed, 1 insertions, 7 deletions
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)])