summaryrefslogtreecommitdiff
path: root/scheme/racket/geiser/eval.rkt
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-08 03:39:36 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-08 03:39:36 +0100
commit6a197dae0735eb92f66ee98a8ca4137eac7649ee (patch)
tree28fd30b1c68748fb72943e63f8eff3f9a56038a7 /scheme/racket/geiser/eval.rkt
parenta73fdcb10bb6144d7befbc4c553102c9816e86c9 (diff)
downloadgeiser-guile-6a197dae0735eb92f66ee98a8ca4137eac7649ee.tar.gz
geiser-guile-6a197dae0735eb92f66ee98a8ca4137eac7649ee.tar.bz2
Racket: use EOT token for internal communications
Diffstat (limited to 'scheme/racket/geiser/eval.rkt')
-rw-r--r--scheme/racket/geiser/eval.rkt16
1 files changed, 6 insertions, 10 deletions
diff --git a/scheme/racket/geiser/eval.rkt b/scheme/racket/geiser/eval.rkt
index f66f149..78db857 100644
--- a/scheme/racket/geiser/eval.rkt
+++ b/scheme/racket/geiser/eval.rkt
@@ -17,15 +17,13 @@
compile-file
macroexpand
make-repl-reader)
+
(require geiser/enter geiser/modules geiser/autodoc)
(require errortrace/errortrace-lib)
(define last-result (void))
-(define namespace->module-name
- (compose module-path-name->name namespace->module-path-name))
-
(define last-namespace (make-parameter (current-namespace)))
(define (exn-key e)
@@ -59,8 +57,7 @@
(lambda ()
(update-signature-cache spec form)
(eval form (module-spec->namespace spec lang)))))
- (newline)
- (flush-output))
+ (newline))
(define compile-in eval-in)
@@ -76,10 +73,9 @@
(lambda ()
(pretty-print (syntax->datum ((if all expand expand-once) form)))))))
-(define (make-repl-reader builtin-reader)
- (lambda (ns)
- (last-namespace ns)
- (printf "racket@~a" (namespace->module-name ns))
- (builtin-reader)))
+(define (make-repl-reader reader)
+ (lambda ()
+ (last-namespace (current-namespace))
+ (reader)))
;;; eval.rkt ends here