summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-06 14:14:56 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-06 14:14:56 +0200
commit48b25de81bb81ab479f3b71536ad056fe322d5a3 (patch)
tree58fc7340027d99432e3afa78e0c25298bc17db20 /scheme
parentfb189e4530f93138f25546d5633e9703c04f932b (diff)
downloadgeiser-chez-48b25de81bb81ab479f3b71536ad056fe322d5a3.tar.gz
geiser-chez-48b25de81bb81ab479f3b71536ad056fe322d5a3.tar.bz2
Guile: better stack trace limits during evaluation.
Diffstat (limited to 'scheme')
-rw-r--r--scheme/guile/geiser/evaluation.scm5
1 files changed, 2 insertions, 3 deletions
diff --git a/scheme/guile/geiser/evaluation.scm b/scheme/guile/geiser/evaluation.scm
index cd4d6a4..6090210 100644
--- a/scheme/guile/geiser/evaluation.scm
+++ b/scheme/guile/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)))