summaryrefslogtreecommitdiff
path: root/scheme/racket/geiser/eval.rkt
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-06 21:42:09 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-06 21:42:09 +0100
commit2aad392f96e8fdf6040c3761171045e25fb0a8c9 (patch)
tree93b87ab51faeaa35300b45e7a2cc69b027a8bbf8 /scheme/racket/geiser/eval.rkt
parentf972d32e556e305936e4aa9f1249fe2846e07a20 (diff)
downloadgeiser-guile-2aad392f96e8fdf6040c3761171045e25fb0a8c9.tar.gz
geiser-guile-2aad392f96e8fdf6040c3761171045e25fb0a8c9.tar.bz2
Racket: little evaluation nits
Diffstat (limited to 'scheme/racket/geiser/eval.rkt')
-rw-r--r--scheme/racket/geiser/eval.rkt9
1 files changed, 5 insertions, 4 deletions
diff --git a/scheme/racket/geiser/eval.rkt b/scheme/racket/geiser/eval.rkt
index 4e7f3db..66eccc6 100644
--- a/scheme/racket/geiser/eval.rkt
+++ b/scheme/racket/geiser/eval.rkt
@@ -55,10 +55,11 @@
(append last-result `((output . ,output)))))
(define (eval-in form spec lang)
- (call-with-result
- (lambda ()
- (update-signature-cache spec form)
- (eval form (module-spec->namespace spec lang)))))
+ (write (call-with-result
+ (lambda ()
+ (update-signature-cache spec form)
+ (eval form (module-spec->namespace spec lang)))))
+ (newline))
(define compile-in eval-in)