From 7b0d68b3f82f7595b6c753702d2e3858bbb3833d Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Fri, 19 Mar 2010 01:46:59 +0100
Subject: Guile: better stack traces (using start-stack to delimit them).

---
 geiser/evaluation.scm | 1 +
 1 file changed, 1 insertion(+)

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))
-- 
cgit v1.2.3