|
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] |