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: make-dynamic-state, with-dynamic-state & exceptions Date: Tue, 30 Jun 2015 15:50:30 +0200 Message-ID: <55929EA6.6090404@primfilat.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1435672294 4762 80.91.229.3 (30 Jun 2015 13:51:34 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 30 Jun 2015 13:51:34 +0000 (UTC) To: 20938@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Tue Jun 30 15:51:22 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 1Z9vwQ-0001RD-5p for guile-bugs@m.gmane.org; Tue, 30 Jun 2015 15:51:14 +0200 Original-Received: from localhost ([::1]:47123 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z9vwP-0000t5-Cq for guile-bugs@m.gmane.org; Tue, 30 Jun 2015 09:51:13 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:57857) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z9vwL-0000so-Ul for bug-guile@gnu.org; Tue, 30 Jun 2015 09:51:10 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Z9vwG-0003ck-UM for bug-guile@gnu.org; Tue, 30 Jun 2015 09:51:09 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:60597) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z9vwG-0003cW-Fe for bug-guile@gnu.org; Tue, 30 Jun 2015 09:51:04 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1Z9vwF-0003uD-QD for bug-guile@gnu.org; Tue, 30 Jun 2015 09:51:03 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Josep Portella Florit Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Tue, 30 Jun 2015 13:51:03 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 20938 X-GNU-PR-Package: guile X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-guile@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.143567225514997 (code B ref -1); Tue, 30 Jun 2015 13:51:03 +0000 Original-Received: (at submit) by debbugs.gnu.org; 30 Jun 2015 13:50:55 +0000 Original-Received: from localhost ([127.0.0.1]:33810 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Z9vw5-0003to-To for submit@debbugs.gnu.org; Tue, 30 Jun 2015 09:50:54 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:43949) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Z9vw2-0003ta-Uh for submit@debbugs.gnu.org; Tue, 30 Jun 2015 09:50:51 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Z9vvw-0003QX-Cy for submit@debbugs.gnu.org; Tue, 30 Jun 2015 09:50:45 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:53785) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z9vvw-0003QS-9G for submit@debbugs.gnu.org; Tue, 30 Jun 2015 09:50:44 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:57426) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z9vvv-0000UF-42 for bug-guile@gnu.org; Tue, 30 Jun 2015 09:50:44 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Z9vvq-0003OL-MY for bug-guile@gnu.org; Tue, 30 Jun 2015 09:50:43 -0400 Original-Received: from primfilat.com ([71.19.154.166]:59226) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z9vvq-0003Nh-Gq for bug-guile@gnu.org; Tue, 30 Jun 2015 09:50:38 -0400 Original-Received: from [192.168.0.104] (unknown [46.18.40.205]) by primfilat.com (Postfix) with ESMTPSA id BEA7B7BA98 for ; Tue, 30 Jun 2015 15:50:35 +0200 (CEST) User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:31.0) Gecko/20100101 Icedove/31.6.0 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x [generic] X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). 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:7804 Archived-At: This code crashes Guile 2.0.11: (define x (make-dynamic-state)) (with-dynamic-state x (lambda () (/ 1 0))) For now I'm using this workaround: (let ((w-d-s with-dynamic-state)) (set! with-dynamic-state (lambda (s p) (let ((e #f)) (w-d-s s (lambda () (catch #t p (lambda x (set! e x))))) (when e (apply throw e))))))