branch: elpa/geiser-guile
commit 6baa7d3e9534f70e77ee7091f54878d7fa76fa93
Author: Jose Antonio Ortega Ruiz <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
Guile: better stack trace limits during evaluation.
---
geiser/evaluation.scm | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/geiser/evaluation.scm b/geiser/evaluation.scm
index cd4d6a4..6090210 100644
--- a/geiser/evaluation.scm
+++ b/geiser/evaluation.scm
@@ -45,9 +45,8 @@
(ev (lambda ()
(set! result (call-with-values
(lambda ()
- (compile (start-stack
- 'geiser-evaluation-stack form)
- #:env module))
+ (start-stack 'geiser-evaluation-stack
+ (compile form #:env module)))
(lambda vs (map object->string vs)))))))
(let ((output (with-output-to-string ev)))
(write `(,(cons 'result result) (output . ,output)))
