dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* Preserve the original error's stack for re-throwing.

Browse source
This commit is contained in:
Dirk Herrmann 2001-03-05 11:05:02 +00:00
commit 8bc4547c4e
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
test-suite/lib.scm
View file

@ -17,6 +17,7 @@
;;;; Boston, MA 02111-1307 USA
(define-module (test-suite lib)
:use-module (ice-9 stack-catch)
:use-module (ice-9 regex))
(export
@ -284,7 +285,7 @@
(define (run-test-exception name exception expect-pass thunk)
(run-test name expect-pass
(lambda ()
(catch (car exception)
(stack-catch (car exception)
(lambda () (thunk) #f)
(lambda (key proc message . rest)
(if (not (string-match (cdr exception) message))