diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-11 03:01:33 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-11 03:01:33 +0100 |
| commit | dfc900c0e2f59edfb06bbdabfc4bcde172d6ced9 (patch) | |
| tree | ff2937e287b418520e082d06907e5027601e4eee /scheme | |
| parent | 3db4017f11317c497fba0e97adb5fd1a18ca4534 (diff) | |
| download | geiser-guile-dfc900c0e2f59edfb06bbdabfc4bcde172d6ced9.tar.gz geiser-guile-dfc900c0e2f59edfb06bbdabfc4bcde172d6ced9.tar.bz2 | |
Partial work (connections working)
Diffstat (limited to 'scheme')
| -rw-r--r-- | scheme/racket/geiser/user.rkt | 8 |
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)]) |