mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

* 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
parent 1dd05fd8aa
commit 8bc4547c4e
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test-suite/ChangeLog
View file

@ -1,3 +1,8 @@
2001-03-05 Dirk Herrmann <D.Herrmann@tu-bs.de>
* lib.scm (run-test-exception): Preserve the original error's
stack for re-throwing.
2001-03-04 Marius Vollmer <mvo@zagadka.ping.de> 2001-03-04 Marius Vollmer <mvo@zagadka.ping.de>
* tests/syntax.test ("let,duplicate bindings", "let*,duplicate * tests/syntax.test ("let,duplicate bindings", "let*,duplicate
@ -29,7 +34,6 @@
related to evaluation and application to tests/eval.test. related to evaluation and application to tests/eval.test.
* tests/exceptions.test: Added some test cases that check guile's * tests/exceptions.test: Added some test cases that check guile's
exception handling. exception handling.
2001-03-01 Dirk Herrmann <D.Herrmann@tu-bs.de> 2001-03-01 Dirk Herrmann <D.Herrmann@tu-bs.de>

3
test-suite/lib.scm
View file

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