From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Josep Portella Florit Newsgroups: gmane.lisp.guile.bugs Subject: bug#20938: Improved workaround Date: Wed, 01 Jul 2015 08:49:04 +0200 Message-ID: <55938D60.5050406@primfilat.com> References: <55929EA6.6090404@primfilat.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-Trace: ger.gmane.org 1435733461 3046 80.91.229.3 (1 Jul 2015 06:51:01 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 1 Jul 2015 06:51:01 +0000 (UTC) To: 20938@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Wed Jul 01 08:50:50 2015 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1ZABr8-0006vA-2l for guile-bugs@m.gmane.org; Wed, 01 Jul 2015 08:50:50 +0200 Original-Received: from localhost ([::1]:49906 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZABr7-0003GN-AY for guile-bugs@m.gmane.org; Wed, 01 Jul 2015 02:50:49 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:40940) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZABqT-0002Z1-O5 for bug-guile@gnu.org; Wed, 01 Jul 2015 02:50:10 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZABqO-0007W1-Ow for bug-guile@gnu.org; Wed, 01 Jul 2015 02:50:09 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:33630) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZABqO-0007Tz-Mm for bug-guile@gnu.org; Wed, 01 Jul 2015 02:50:04 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1ZABqN-0002Uq-VE for bug-guile@gnu.org; Wed, 01 Jul 2015 02:50:04 -0400 X-Loop: help-debbugs@gnu.org In-Reply-To: <55929EA6.6090404@primfilat.com> Resent-From: Josep Portella Florit Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Wed, 01 Jul 2015 06:50:03 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 20938 X-GNU-PR-Package: guile X-GNU-PR-Keywords: Original-Received: via spool by 20938-submit@debbugs.gnu.org id=B20938.14357333719555 (code B ref 20938); Wed, 01 Jul 2015 06:50:03 +0000 Original-Received: (at 20938) by debbugs.gnu.org; 1 Jul 2015 06:49:31 +0000 Original-Received: from localhost ([127.0.0.1]:35076 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1ZABpk-0002Tw-PD for submit@debbugs.gnu.org; Wed, 01 Jul 2015 02:49:31 -0400 Original-Received: from primfilat.com ([71.19.154.166]:39187) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1ZABpc-0002Tb-Fj for 20938@debbugs.gnu.org; Wed, 01 Jul 2015 02:49:23 -0400 Original-Received: from [192.168.0.104] (unknown [46.18.40.205]) by primfilat.com (Postfix) with ESMTPSA id 9DB297BAFB for <20938@debbugs.gnu.org>; Wed, 1 Jul 2015 08:49:09 +0200 (CEST) User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:31.0) Gecko/20100101 Icedove/31.6.0 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-guile@gnu.org List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Original-Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.bugs:7805 Archived-At: 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)))))