diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-03-19 01:46:59 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-03-19 01:46:59 +0100 |
| commit | 1e39c1ab55a86b66a58323bb9ea16de59f1c3e61 (patch) | |
| tree | a0836fb2316703bbcf66947bde5044fff328c028 | |
| parent | ee45fc1bf84b6bf1304a621e66713963f2740f84 (diff) | |
| download | geiser-guile-1e39c1ab55a86b66a58323bb9ea16de59f1c3e61.tar.gz geiser-guile-1e39c1ab55a86b66a58323bb9ea16de59f1c3e61.tar.bz2 | |
Guile: better stack traces (using start-stack to delimit them).
| -rw-r--r-- | README | 4 | ||||
| -rw-r--r-- | scheme/guile/geiser/evaluation.scm | 1 |
2 files changed, 3 insertions, 2 deletions
@@ -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)) |