diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-12 02:20:14 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-12 02:20:14 +0100 |
| commit | e13172c2855cc7fcb30c6dac231210c6e8534b18 (patch) | |
| tree | e9c5a1746535bac89e0f816c9c4851d61d30b97f /scheme | |
| parent | dc8155b5d0e5c533a1fc6cb64399e8cccd7c1716 (diff) | |
| download | geiser-chez-e13172c2855cc7fcb30c6dac231210c6e8534b18.tar.gz geiser-chez-e13172c2855cc7fcb30c6dac231210c6e8534b18.tar.bz2 | |
Better EOT token for more robust communication
Diffstat (limited to 'scheme')
| -rw-r--r-- | scheme/guile/geiser/evaluation.scm | 1 | ||||
| -rw-r--r-- | scheme/racket/geiser/eval.rkt | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/scheme/guile/geiser/evaluation.scm b/scheme/guile/geiser/evaluation.scm index 305ccfd..d7d0a68 100644 --- a/scheme/guile/geiser/evaluation.scm +++ b/scheme/guile/geiser/evaluation.scm @@ -50,6 +50,7 @@ (define (write-result result output) (write (list (cons 'result result) (cons 'output output))) + (write-char #\nul) (newline)) (define (call-with-result thunk) diff --git a/scheme/racket/geiser/eval.rkt b/scheme/racket/geiser/eval.rkt index 78db857..1efaded 100644 --- a/scheme/racket/geiser/eval.rkt +++ b/scheme/racket/geiser/eval.rkt @@ -17,7 +17,7 @@ compile-file macroexpand make-repl-reader) - + (require geiser/enter geiser/modules geiser/autodoc) (require errortrace/errortrace-lib) @@ -57,6 +57,7 @@ (lambda () (update-signature-cache spec form) (eval form (module-spec->namespace spec lang))))) + (write-char #\null) (newline)) (define compile-in eval-in) |