From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Stefan Israelsson Tampe Newsgroups: gmane.lisp.guile.bugs Subject: bug#33652: Possible fix Date: Wed, 12 Dec 2018 22:45:49 +0100 Message-ID: References: NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: multipart/alternative; boundary="000000000000bca945057cda1f6c" X-Trace: blaine.gmane.org 1544651108 6806 195.159.176.226 (12 Dec 2018 21:45:08 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Wed, 12 Dec 2018 21:45:08 +0000 (UTC) To: 33652@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Wed Dec 12 22:45:04 2018 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gXCJS-0001bV-IK for guile-bugs@m.gmane.org; Wed, 12 Dec 2018 22:45:02 +0100 Original-Received: from localhost ([::1]:48276 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gXCLZ-0000gc-67 for guile-bugs@m.gmane.org; Wed, 12 Dec 2018 16:47:13 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:52601) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gXCLS-0000gK-8B for bug-guile@gnu.org; Wed, 12 Dec 2018 16:47:07 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gXCLP-0004Eg-19 for bug-guile@gnu.org; Wed, 12 Dec 2018 16:47:06 -0500 Original-Received: from debbugs.gnu.org ([208.118.235.43]:41337) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1gXCLO-0004Ea-TW for bug-guile@gnu.org; Wed, 12 Dec 2018 16:47:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1gXCLN-0006CS-U4 for bug-guile@gnu.org; Wed, 12 Dec 2018 16:47:02 -0500 X-Loop: help-debbugs@gnu.org In-Reply-To: Resent-From: Stefan Israelsson Tampe Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Wed, 12 Dec 2018 21:47:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 33652 X-GNU-PR-Package: guile X-GNU-PR-Keywords: Original-Received: via spool by 33652-submit@debbugs.gnu.org id=B33652.154465116923762 (code B ref 33652); Wed, 12 Dec 2018 21:47:01 +0000 Original-Received: (at 33652) by debbugs.gnu.org; 12 Dec 2018 21:46:09 +0000 Original-Received: from localhost ([127.0.0.1]:45595 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gXCKW-0006BB-NR for submit@debbugs.gnu.org; Wed, 12 Dec 2018 16:46:08 -0500 Original-Received: from mail-ua1-f43.google.com ([209.85.222.43]:42066) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gXCKU-0006AV-JM for 33652@debbugs.gnu.org; Wed, 12 Dec 2018 16:46:06 -0500 Original-Received: by mail-ua1-f43.google.com with SMTP id d21so7007177uap.9 for <33652@debbugs.gnu.org>; Wed, 12 Dec 2018 13:46:06 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:from:date:message-id:subject:to; bh=6Tzvc/5k6SWFu3h0GiZPWvhHR3da40bk3Y3ZieFp2+8=; b=B8X3XTbcDxaj347uJRnO72sJPx8E+e2FSBjg9d8gs6GYH8clMjHt/Q0R9XT8PkwTWq zapBFqQR7XWGpEBPJNEp6DPp7UfsCahXnHhNXa9cKACm5ddd1hWukYAaqYDtUoi1sO0c IkXUPk39ZAO9tpyrxc2dhM+tyOOG5rVPvTN6tfeFAHwtKL2dCGDK1jeLilyrljGgKxOY MzW/OP9ZSjjvxbNWvOqNSpswoI+G6VjShLSYFshiqpZio74KDQZ+KfCFOO9x3Fm6D+BF ZAyrf9rniIBlqUNFBCf0rw4K36YW+voaaH2nzMGcKfrpw1hp9GQWvcvKqhOO9jhTZLjy Tutg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:from:date:message-id:subject:to; bh=6Tzvc/5k6SWFu3h0GiZPWvhHR3da40bk3Y3ZieFp2+8=; b=K+KznmqvglPvqsFZMTifpLesRopaKcAvB59NYo1tiJ1XpCTEYj+g5cJ0GA/3kVkkdH P5eoV15ZEMelTeCjHhuO6zUZIey5gZgWCOQiIHec9OZ0kSjIjzA3ZRvLmE/+R/Tiib69 w8bTs8oAV5pxgl0c9TVxLvtaVhD/jYPiNOJcEtV1e0nL5Vna1fRMrJP/vRgZCSNOD3Nc qlTL/q6IuDyn/XGs//8Pe14rAonbpfuGvkCVJwWbwWnZN9OUcCHiy/PwgPKbJPAy+kSL H1W+aaAXT0+7lrp7rFE3eXU3481WnudglekYX0+ptQdJtiK1ODx4GdK5RFrFsJOuM1ul NTFw== X-Gm-Message-State: AA+aEWZdkG1O3WQX9X9n6uqEeLs8OfzDU6bY/zEZ+ycDbU4IhHI86DnC mXCNp9qS+3sn0ZYnDtoBCfUrpKhVkHtEZvjH+pdUcBUM X-Google-Smtp-Source: AFSGD/VGAJJu050Lw5Ukv+1+AFglbgYQ5sgrLtbQ9z1qt4oi/kso/fnWKUJ2kiJjsmwo28vIMLKWtZPp2P8958SmyyA= X-Received: by 2002:ab0:526:: with SMTP id 35mr10459592uax.25.1544651160724; Wed, 12 Dec 2018 13:46:00 -0800 (PST) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.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" Xref: news.gmane.org gmane.lisp.guile.bugs:9285 Archived-At: --000000000000bca945057cda1f6c Content-Type: text/plain; charset="UTF-8" When I apply this to head master: diff --git a/module/language/cps/simplify.scm b/module/language/cps/simpl ify.scm index 311566043..b6fcffcd1 100644 --- a/module/language/cps/simplify.scm +++ b/module/language/cps/simplify.scm @@ -149,6 +149,9 @@ (($ $kargs names syms ($ $branch kf kt src op param args)) ($kargs names syms ($branch (subst kf) (subst kt) src op param args))) + (($ $kargs names syms ($ $prompt k kh src escape? tag)) + ($kargs names syms + ($prompt (subst k) (subst kh) src escape? tag))) (($ $kargs names syms ($ $continue k src ($ $const val))) ,(match (intmap-ref conts k) (($ $kargs (_) Things compiles just fine Regards Stefan --000000000000bca945057cda1f6c Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
When I apply this to head master:

diff --git a/module/language/cps/simplify.scm b/module/language/cps= /simpl
ify.scm
index 31156604= 3..b6fcffcd1 100644
--- a/module/l= anguage/cps/simplify.scm
+++ b/module/l= anguage/cps/simplify.scm
@@ -149,6 +149,9 @@=
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0(($ $kargs names syms ($ $branch kf kt src op param ar= gs))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0($kargs names syms
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0($branch (subst kf) (subst kt) src op para= m args)))
+ =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0(($ $kargs names syms ($ $p= rompt k kh src escape? tag))
+ =C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0($kargs names s= yms
+ =C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0($p= rompt (subst k) (subst kh) src escape? tag)))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0(($ $kargs names syms ($ $continue k src ($ $const val= )))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0,(match (intmap-ref conts k)
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0(($ $kargs (_)

Things compiles= just fine

Regards
Stefan
--000000000000bca945057cda1f6c--