From e13172c2855cc7fcb30c6dac231210c6e8534b18 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 12 Nov 2010 02:20:14 +0100 Subject: Better EOT token for more robust communication --- scheme/guile/geiser/evaluation.scm | 1 + scheme/racket/geiser/eval.rkt | 3 ++- 2 files changed, 3 insertions(+), 1 deletion(-) (limited to 'scheme') 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) -- cgit v1.2.3