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 | 7b0d68b3f82f7595b6c753702d2e3858bbb3833d (patch) | |
| tree | e37e51ac7a193b122262cfcf1d91f30861c032a8 | |
| parent | 1af3138afe3641e1cf321834411830aafddd0d54 (diff) | |
| download | geiser-guile-7b0d68b3f82f7595b6c753702d2e3858bbb3833d.tar.gz geiser-guile-7b0d68b3f82f7595b6c753702d2e3858bbb3833d.tar.bz2 | |
Guile: better stack traces (using start-stack to delimit them).
| -rw-r--r-- | geiser/evaluation.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/geiser/evaluation.scm b/geiser/evaluation.scm index cd8a6f7..22817ea 100644 --- a/geiser/evaluation.scm +++ b/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)) |