summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-12 02:20:14 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-12 02:20:14 +0100
commite13172c2855cc7fcb30c6dac231210c6e8534b18 (patch)
treee9c5a1746535bac89e0f816c9c4851d61d30b97f /scheme
parentdc8155b5d0e5c533a1fc6cb64399e8cccd7c1716 (diff)
downloadgeiser-guile-e13172c2855cc7fcb30c6dac231210c6e8534b18.tar.gz
geiser-guile-e13172c2855cc7fcb30c6dac231210c6e8534b18.tar.bz2
Better EOT token for more robust communication
Diffstat (limited to 'scheme')
-rw-r--r--scheme/guile/geiser/evaluation.scm1
-rw-r--r--scheme/racket/geiser/eval.rkt3
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)