mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

Fix new thread-local fluids test

Browse source 
* test-suite/tests/fluids.test ("dynamic states"): Fix test.
This commit is contained in:
Andy Wingo 2017-03-07 21:35:52 +01:00
parent 1e51ffa634
commit 8157c2a3ac
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
test-suite/tests/fluids.test
View file

@ -265,5 +265,5 @@
(pass-if "exception handler not captured"
(let ((state (catch #t (lambda () (current-dynamic-state)) error)))
(catch #t
(lambda () (with-dynamic-state state (/ 1 0)))
(lambda () (with-dynamic-state state (lambda () (/ 1 0))))
(lambda _ #t)))))