From 6baa7d3e9534f70e77ee7091f54878d7fa76fa93 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 6 Jun 2010 14:14:56 +0200 Subject: Guile: better stack trace limits during evaluation. --- geiser/evaluation.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'geiser') 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))) -- cgit v1.2.3