|
| From: | Josep Portella Florit |
| Subject: | bug#20938: Improved workaround |
| Date: | Wed, 01 Jul 2015 08:49:04 +0200 |
| User-agent: | Mozilla/5.0 (X11; Linux x86_64; rv:31.0) Gecko/20100101 Icedove/31.6.0 |
The workaround in my other message discards the return value of
`with-dynamic-state'. I've improved it:
(let ((w-d-s with-dynamic-state))
(set! with-dynamic-state
(lambda (s p)
(let* ((e #f)
(r (w-d-s s (lambda ()
(catch #t p
(lambda x
(set! e x)))))))
(if e
(apply throw e)
r)))))
| [Prev in Thread] | Current Thread | [Next in Thread] |