mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-23 03:54:12 +02:00
srfi-18: Use srfi-35 conditions.
* module/srfi/srfi-18.scm: Use srfi-35 conditions instead of our home-grown equivalent system. (thread-exception-handlers): Remove unused table. (srfi-18-exception-handler): Always capture key consed to args; no special case for bare key. * test-suite/tests/srfi-18.test (provided?): Adapt to reason always being key+args.
This commit is contained in:
parent
0d57476f0a
commit
177a058a40
2 changed files with 26 additions and 27 deletions
|
@ -484,7 +484,7 @@
|
|||
(with-exception-handler
|
||||
(lambda (obj)
|
||||
(and (uncaught-exception? obj)
|
||||
(eq? (uncaught-exception-reason obj) 'foo)
|
||||
(equal? (uncaught-exception-reason obj) '(foo))
|
||||
(set! success #t)))
|
||||
(lambda () (thread-join! t)))
|
||||
success)))))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue