1
Fork 0
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:
Andy Wingo 2016-10-30 22:30:21 +01:00
parent 0d57476f0a
commit 177a058a40
2 changed files with 26 additions and 27 deletions

View file

@ -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)))))