From 1e39c1ab55a86b66a58323bb9ea16de59f1c3e61 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 19 Mar 2010 01:46:59 +0100 Subject: Guile: better stack traces (using start-stack to delimit them). --- README | 4 ++-- scheme/guile/geiser/evaluation.scm | 1 + 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/README b/README index d3af308..cebe1ae 100644 --- a/README +++ b/README @@ -22,8 +22,8 @@ * Supported scheme implementations - - Guile 1.9.5 or better. - - PLT Scheme 4.1.5.5 or better. + - Guile 1.9.9 or better. + - PLT Scheme 4.2 or better. * Installation Geiser can be used either directly from its uninstalled source tree diff --git a/scheme/guile/geiser/evaluation.scm b/scheme/guile/geiser/evaluation.scm index cd8a6f7..22817ea 100644 --- a/scheme/guile/geiser/evaluation.scm +++ b/scheme/guile/geiser/evaluation.scm @@ -43,6 +43,7 @@ (define (ge:compile form module-name) (let* ((module (or (find-module module-name) (current-module))) (result #f) + (form `(start-stack 'geiser-evaluation-stack ,form)) (ev (lambda () (set! result (call-with-values (lambda () (compile form #:env module)) -- cgit v1.2.3