From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: David Pirotte Newsgroups: gmane.lisp.guile.bugs Subject: bug#24286: Guile-2.2: srfi-1 + #:duplicates (merge-generics...) + for-each raises an exception Date: Sun, 21 Aug 2016 22:03:33 -0300 Message-ID: <20160821220333.24968f49@capac> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha256; boundary="Sig_/XD/t1nKtfg7jJ3_3mCdxf1s"; protocol="application/pgp-signature" X-Trace: blaine.gmane.org 1471827925 25120 195.159.176.226 (22 Aug 2016 01:05:25 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Mon, 22 Aug 2016 01:05:25 +0000 (UTC) To: 24286@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Mon Aug 22 03:05:21 2016 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 1bbdg0-0006F1-Ui for guile-bugs@m.gmane.org; Mon, 22 Aug 2016 03:05:21 +0200 Original-Received: from localhost ([::1]:39019 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bbdfy-0005js-BG for guile-bugs@m.gmane.org; Sun, 21 Aug 2016 21:05:18 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:40056) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bbdfo-0005gT-Pb for bug-guile@gnu.org; Sun, 21 Aug 2016 21:05:12 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bbdfi-0003Zm-Of for bug-guile@gnu.org; Sun, 21 Aug 2016 21:05:07 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:38597) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bbdfi-0003Zi-Ll for bug-guile@gnu.org; Sun, 21 Aug 2016 21:05:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1bbdfi-0006E2-Fh for bug-guile@gnu.org; Sun, 21 Aug 2016 21:05:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: David Pirotte Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Mon, 22 Aug 2016 01:05:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 24286 X-GNU-PR-Package: guile X-GNU-PR-Keywords: X-Debbugs-Original-To: Original-Received: via spool by submit@debbugs.gnu.org id=B.147182786623883 (code B ref -1); Mon, 22 Aug 2016 01:05:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 22 Aug 2016 01:04:26 +0000 Original-Received: from localhost ([127.0.0.1]:36309 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bbdf7-0006D9-QO for submit@debbugs.gnu.org; Sun, 21 Aug 2016 21:04:26 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:49036) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bbdf6-0006Cx-7b for submit@debbugs.gnu.org; Sun, 21 Aug 2016 21:04:25 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bbdf0-0003VI-2J for submit@debbugs.gnu.org; Sun, 21 Aug 2016 21:04:19 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:35133) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bbdez-0003VE-VQ for submit@debbugs.gnu.org; Sun, 21 Aug 2016 21:04:17 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:40004) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bbdex-0005du-N3 for bug-guile@gnu.org; Sun, 21 Aug 2016 21:04:16 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bbdes-0003Up-Mr for bug-guile@gnu.org; Sun, 21 Aug 2016 21:04:15 -0400 Original-Received: from maximusconfessor.all2all.org ([79.99.200.102]:46340) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bbdes-0003Oc-Dr for bug-guile@gnu.org; Sun, 21 Aug 2016 21:04:10 -0400 Original-Received: from localhost (unknown [192.168.0.2]) by maximusconfessor.all2all.org (Postfix) with ESMTP id 801D4A04C207 for ; Mon, 22 Aug 2016 03:03:46 +0200 (CEST) Original-Received: from maximusconfessor.all2all.org ([192.168.0.1]) by localhost (maximusconfessor.all2all.org [192.168.0.2]) (amavisd-new, port 10024) with ESMTP id 7Bx0-PYiWEW8 for ; Mon, 22 Aug 2016 03:03:42 +0200 (CEST) Original-Received: from capac (unknown [177.17.25.43]) by maximusconfessor.all2all.org (Postfix) with ESMTPSA id C259EA04C200 for ; Mon, 22 Aug 2016 03:03:41 +0200 (CEST) X-Mailer: Claws Mail 3.14.0 (GTK+ 2.24.30; x86_64-pc-linux-gnu) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x 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:8384 Archived-At: --Sig_/XD/t1nKtfg7jJ3_3mCdxf1s Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable Hello Guilers, Hi Andy, Here below a mini module [1], which raises an exception [2] using 2.1.3.104= -8f2f8 (it compiles fine using 2.0.12). It looks a bit of a 'silly' module but the re= al one here do need this combination, I just minimized it for tracking purposes... For info, if I either comment the use of srfi-1, or merge-generics, _or_ th= e for-each expression, it compiles fine. I also tried foo to just do a (filter-map str= ing? words) and no for-each, to circumvent the problem as far as I could, and it compiles fie as well: it appears there is a side effect of the for-each ver= sion from srfi-1 over the core version, when using goops and declaring #:duplicates (merge-generics ...). Cheers, David [1] (define-module (foo) #:use-module (srfi srfi-1) #:use-module (oop goops) =20 #:duplicates (merge-generics replace warn-override-core warn last) =20 #:export (foo)) (define (foo words) (for-each (lambda (word) (display (string-append word " "))) words) (newline)) [2] guild --version guild (GNU Guile) 2.1.3.104-8f2f8 guild compile foo.scm Backtrace: In system/base/compile.scm: 43:4 19 (call-once _) In ice-9/boot-9.scm: 829:4 18 (with-throw-handler _ _ _) In system/base/compile.scm: 59:11 17 (_) 155:11 16 (_ #) 235:18 15 (read-and-compile # #:from _ #:to _ # =E2= =80=A6) 183:32 14 (compile-fold (#) =E2=80= =A6) In ice-9/boot-9.scm: 2325:4 13 (save-module-excursion #) In language/scheme/compile-tree-il.scm: 31:15 12 (_) In ice-9/psyntax.scm: 1208:22 11 (expand-top-sequence ((define (foo words) (# (=E2=80=A6) #) #)= ) =E2=80=A6) In ice-9/boot-9.scm: 224:17 10 (map1 (#)) In ice-9/psyntax.scm: 1383:12 9 (_) 1763:11 8 (lp (#(syntax-object (for-each (lambda (#) #) #) # =E2=80=A6) = =E2=80=A6) =E2=80=A6) 1586:33 7 (parse (((("placeholder" placeholder) (# . #) =E2=80=A6) . #) = =E2=80=A6) =E2=80=A6) 1307:27 6 (syntax-type (for-each (lambda (word) (display #)) #) # =E2=80= =A6) 1291:39 5 (syntax-type for-each (("placeholder" placeholder) # #) =E2=80= =A6) 302:24 4 (resolve-identifier _ _ (("placeholder" placeholder) =E2=80=A6= ) =E2=80=A6) In unknown file: 3 (module-variable # for-each) In oop/goops.scm: 1437:4 2 (cache-miss # for-each # =E2=80=A6) In unknown file: 1 (scm-error goops-error #f "No applicable method for ~S=E2=80= =A6" =E2=80=A6) In ice-9/boot-9.scm: 753:26 0 (dispatch-exception _ _ _) ice-9/boot-9.scm:753:26: In procedure dispatch-exception: ice-9/boot-9.scm:753:26: No applicable method for #< merge-generic= s (3)> in call (merge-generics # for-each # # # srfi-1) 1e4ca20> # #f 1e02ea0> #f) --Sig_/XD/t1nKtfg7jJ3_3mCdxf1s Content-Type: application/pgp-signature Content-Description: OpenPGP digital signature -----BEGIN PGP SIGNATURE----- Version: GnuPG v2 iQEcBAEBCAAGBQJXuk9mAAoJEPN0/ZOjBXrXGtoIAJtocghWHFNW7WPgWUDJawJD BTRD99+F/YQaD5zpk8vB2MOkcuoo8e9Z8WP8DFBRh4gz02mRszC07aeo9g459l3k om3aiEWe3iOAzNLME0g72RZegmO/35mOgK6iYi4HGmSSgn8M9pSxMHWTkxr2xS3B mniikuQde+lCamAQkF3HhR+iuH0EGMuQJE2aH07HZG87bDkrhQVweemq09PkWATs Ktci5tk74MWsMcKh/Gz8Pz1hpUwNV9mpNL4hzjNk2GndZJi3fL6Ge8qyJzYU2rW4 7TdIrm/yA5C7GkiZPkBdvHmKpxcqtr02TchH5Uj+39MebZxDllDBtpkdQjNdSWg= =tiB7 -----END PGP SIGNATURE----- --Sig_/XD/t1nKtfg7jJ3_3mCdxf1s--