From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.ciao.gmane.io!not-for-mail From: Maxim Cournoyer Newsgroups: gmane.lisp.guile.bugs Subject: bug#41956: [PATCH] ice-9: exceptions: Properly format the error message. Date: Sun, 28 Jun 2020 00:25:28 -0400 Message-ID: <87tuyvlsuf.fsf@gmail.com> References: <87eeqad9m9.fsf@gmail.com> <87wo42mgre.fsf@hurd.i-did-not-set--mail-host-address--so-tickle-me> <20200620183334.GA9490@LionPure> <87r1u9m62o.fsf@gmail.com> <87bll7qx5g.fsf@elephly.net> <20200625163341.GA4622@LionPure> Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="ciao.gmane.io:159.69.161.202"; logging-data="121388"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (gnu/linux) Cc: 41956@debbugs.gnu.org To: Bengt Richter Original-X-From: bug-guile-bounces+guile-bugs=m.gmane-mx.org@gnu.org Sun Jun 28 06:26:08 2020 Return-path: Envelope-to: guile-bugs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1jpOtL-000VR9-KV for guile-bugs@m.gmane-mx.org; Sun, 28 Jun 2020 06:26:07 +0200 Original-Received: from localhost ([::1]:35946 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jpOtK-0005V8-3W for guile-bugs@m.gmane-mx.org; Sun, 28 Jun 2020 00:26:06 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:49502) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1jpOtG-0005Ut-F0 for bug-guile@gnu.org; Sun, 28 Jun 2020 00:26:02 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:33408) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1jpOtG-0007GG-3l for bug-guile@gnu.org; Sun, 28 Jun 2020 00:26:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1jpOtG-0001g2-0A for bug-guile@gnu.org; Sun, 28 Jun 2020 00:26:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Maxim Cournoyer Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Sun, 28 Jun 2020 04:26:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 41956 X-GNU-PR-Package: guile X-GNU-PR-Keywords: patch Original-Received: via spool by 41956-submit@debbugs.gnu.org id=B41956.15933183396418 (code B ref 41956); Sun, 28 Jun 2020 04:26:01 +0000 Original-Received: (at 41956) by debbugs.gnu.org; 28 Jun 2020 04:25:39 +0000 Original-Received: from localhost ([127.0.0.1]:44954 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jpOss-0001fS-PQ for submit@debbugs.gnu.org; Sun, 28 Jun 2020 00:25:38 -0400 Original-Received: from mail-qt1-f178.google.com ([209.85.160.178]:44706) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jpOsp-0001fD-GW for 41956@debbugs.gnu.org; Sun, 28 Jun 2020 00:25:37 -0400 Original-Received: by mail-qt1-f178.google.com with SMTP id j10so10506206qtq.11 for <41956@debbugs.gnu.org>; Sat, 27 Jun 2020 21:25:35 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:cc:subject:references:date:in-reply-to:message-id :user-agent:mime-version; bh=2KPz5ShPGwc5BmJ4KnB/q2Crvi4PsSxwlS+TT5ksMWo=; b=KnA7t5o45S/R0HzmKrkuRYo+OZQ6fKbuoGh/AyJudt/zvvsFBN171D5fogZSMpmrIe NpQIQONlFj6Q9eXT3QZZ9e0TdEmIBmwTpLQv2hEnVUXvUBVS85bvz/b2n5GH2RSOLYsh KOlJkteoYk/ZIouy+jT1nhlT4VhFDt5b2OYOOgaeZZqYTtx1walkidiQVMU5+qXYWXVH 1r6mi9yxYdZcMSkUpKrrjmCTBrp6H+bc1UgaNz4bVZhGi1YUmJnvy8eEMhy0zt7xIE2s zbGrxkjRJMHzQ3vdNFrF3WiOp7eIFk/kMrTxSkMLo/pVx85k+cSmACLAHdRLyufMjM/x vUeQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:references:date:in-reply-to :message-id:user-agent:mime-version; bh=2KPz5ShPGwc5BmJ4KnB/q2Crvi4PsSxwlS+TT5ksMWo=; b=X7pCf8FfW0GJHAyp4FqyA/Ufqf0gwJBq+5HGWTOtTJWL2awL98bEKt1RGq/Qg9gCxk jNhUHydcmqmwDh/DEfKxRxMZzvNCB+PMCxVjt710HHOYOcwr4L2l4L5D6nSdSWn1IM1X BS+80O3hcyKzdTY1XnkmNuWsJ1iMGM4dCbQXAfB4j/xp1RbsATZtf82iZ5b8p8CWRWyg RMIecaUwO1kXlJXqURoI/nvmFNi3Rr3owMbzctLb0RYmFtUFXqDuNBMPGYc0Dnrk/zYS nLoYHr4uXb5bMiupIWmsEPGJPZWdAl5sP3oUHS6mCzhEHLuDQrJEHWqoaHT38w4YM2O0 WWxg== X-Gm-Message-State: AOAM532asbkYIRC2BOPLOeqdVXpAeTUNIDu4XwcPfvMBfx57YXTzRq39 /wh0bIL4CXNmJqUZmRSzLviI5VsjJN0= X-Google-Smtp-Source: ABdhPJzHizYvIFf/jkMgOW2fAVOEcZc7tNGL2rvMYJRHNyFUI6tgUoUKs2GXCfQukLUeNYvTIqBrxA== X-Received: by 2002:ac8:3a27:: with SMTP id w36mr10308460qte.196.1593318329930; Sat, 27 Jun 2020 21:25:29 -0700 (PDT) Original-Received: from hurd (dsl-150-161.b2b2c.ca. [66.158.150.161]) by smtp.gmail.com with ESMTPSA id e129sm12454657qkf.132.2020.06.27.21.25.29 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Sat, 27 Jun 2020 21:25:29 -0700 (PDT) In-Reply-To: <20200625163341.GA4622@LionPure> (Bengt Richter's message of "Thu, 25 Jun 2020 18:33:41 +0200") X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list 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-mx.org@gnu.org Original-Sender: "bug-guile" Xref: news.gmane.io gmane.lisp.guile.bugs:9834 Archived-At: Hello Bengt, Bengt Richter writes: [...] > What do you think of using (ice-9 match) to make a universal throwage-formatter, > with the idea of making readable top level code for how exceptions become messages on screen? > > I started a hack to explore the (throw 'whatever any ...) space, beginning like > > (use-modules (ice-9 match)) > (define (make-exception-message key rest) > (begin > (let*((l (cons key rest))) > (match l > (('system-error subr message args data ...) > ;; e.g. thrown with key 'system-error: ("open-fdes" "~A" ("No such file or directory") (2)) > (format #f (string-append "match-1: subr ~s threw '~s " message " sterror: ~s") subr key args (strerror (car (car data))))) > > (('signal any ...) > ;; not yet implemented > (format #f "match-2: any: ~s" any)) Are you proposing to refactor (ice-9 exceptions) so that it's simpler to follow a condition message is formed for a given exception type? Maxim