diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-06 21:42:09 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-06 21:42:09 +0100 |
| commit | 2aad392f96e8fdf6040c3761171045e25fb0a8c9 (patch) | |
| tree | 93b87ab51faeaa35300b45e7a2cc69b027a8bbf8 /scheme/racket/geiser/eval.rkt | |
| parent | f972d32e556e305936e4aa9f1249fe2846e07a20 (diff) | |
| download | geiser-chez-2aad392f96e8fdf6040c3761171045e25fb0a8c9.tar.gz geiser-chez-2aad392f96e8fdf6040c3761171045e25fb0a8c9.tar.bz2 | |
Racket: little evaluation nits
Diffstat (limited to 'scheme/racket/geiser/eval.rkt')
| -rw-r--r-- | scheme/racket/geiser/eval.rkt | 9 |
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) |