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 /scheme/guile | |
| parent | ee45fc1bf84b6bf1304a621e66713963f2740f84 (diff) | |
| download | geiser-chez-1e39c1ab55a86b66a58323bb9ea16de59f1c3e61.tar.gz geiser-chez-1e39c1ab55a86b66a58323bb9ea16de59f1c3e61.tar.bz2 | |
Guile: better stack traces (using start-stack to delimit them).
Diffstat (limited to 'scheme/guile')
| -rw-r--r-- | scheme/guile/geiser/evaluation.scm | 1 |
1 files changed, 1 insertions, 0 deletions
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)) |