mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-13 15:10:34 +02:00
Code Activity

fix multiple values returning from srfi-18's `with-exception-handler'

Browse source 
* module/srfi/srfi-18.scm (with-exception-handler): Hah! Fixed a
  scurrilous bug in which we assumed that the thunk returned one or more
  values. Hah.
This commit is contained in:
Andy Wingo 2009-05-21 21:39:37 +02:00
parent 0f423f20aa
commit 2032f3d1db
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/srfi/srfi-18.scm
View file

@ -151,8 +151,10 @@
(hashq-set! thread-exception-handlers ct hl) (hashq-set! thread-exception-handlers ct hl)
(handler obj)) (handler obj))
(lambda () (lambda ()
(let ((r (thunk))) (call-with-values thunk
(hashq-set! thread-exception-handlers ct hl) r)))))) (lambda res
(hashq-set! thread-exception-handlers ct hl)
(apply values res))))))))
(define (current-exception-handler) (define (current-exception-handler)
(car (current-handler-stack))) (car (current-handler-stack)))