diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-06 14:14:56 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-06 14:14:56 +0200 |
| commit | 48b25de81bb81ab479f3b71536ad056fe322d5a3 (patch) | |
| tree | 58fc7340027d99432e3afa78e0c25298bc17db20 /scheme/guile | |
| parent | fb189e4530f93138f25546d5633e9703c04f932b (diff) | |
| download | geiser-chez-48b25de81bb81ab479f3b71536ad056fe322d5a3.tar.gz geiser-chez-48b25de81bb81ab479f3b71536ad056fe322d5a3.tar.bz2 | |
Guile: better stack trace limits during evaluation.
Diffstat (limited to 'scheme/guile')
| -rw-r--r-- | scheme/guile/geiser/evaluation.scm | 5 |
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))) |