From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Matt Wette Newsgroups: gmane.lisp.guile.bugs Subject: bug#54478: unwanted source references Date: Sun, 27 Mar 2022 07:27:30 -0700 Message-ID: References: <4b3857bc-a068-a1c8-4583-73c9d3c909bc@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 7bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="34046"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:91.0) Gecko/20100101 Thunderbird/91.7.0 To: 54478@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane-mx.org@gnu.org Sun Mar 27 16:28:14 2022 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 1nYTsL-0008ec-GT for guile-bugs@m.gmane-mx.org; Sun, 27 Mar 2022 16:28:13 +0200 Original-Received: from localhost ([::1]:41102 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1nYTsK-0007IE-5b for guile-bugs@m.gmane-mx.org; Sun, 27 Mar 2022 10:28:12 -0400 Original-Received: from eggs.gnu.org ([209.51.188.92]:54412) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nYTsA-0007D8-Dr for bug-guile@gnu.org; Sun, 27 Mar 2022 10:28:02 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:34269) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1nYTsA-0005Vg-57 for bug-guile@gnu.org; Sun, 27 Mar 2022 10:28:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1nYTs9-00025i-V2 for bug-guile@gnu.org; Sun, 27 Mar 2022 10:28:01 -0400 X-Loop: help-debbugs@gnu.org In-Reply-To: <4b3857bc-a068-a1c8-4583-73c9d3c909bc@gmail.com> Resent-From: Matt Wette Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Sun, 27 Mar 2022 14:28:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 54478 X-GNU-PR-Package: guile Original-Received: via spool by 54478-submit@debbugs.gnu.org id=B54478.16483912608008 (code B ref 54478); Sun, 27 Mar 2022 14:28:01 +0000 Original-Received: (at 54478) by debbugs.gnu.org; 27 Mar 2022 14:27:40 +0000 Original-Received: from localhost ([127.0.0.1]:56399 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1nYTro-000256-By for submit@debbugs.gnu.org; Sun, 27 Mar 2022 10:27:40 -0400 Original-Received: from mail-pl1-f175.google.com ([209.85.214.175]:43930) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1nYTrm-00024t-CC for 54478@debbugs.gnu.org; Sun, 27 Mar 2022 10:27:38 -0400 Original-Received: by mail-pl1-f175.google.com with SMTP id w8so12656736pll.10 for <54478@debbugs.gnu.org>; Sun, 27 Mar 2022 07:27:38 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=message-id:date:mime-version:user-agent:to:content-language:from :subject:content-transfer-encoding; bh=FKWxf8ZPEyrTwL2R22BsqQ3cFc2+ss3im6VzEtVTp1A=; b=b1ZsY0VvTNggihdp8wzfxjM25wDq07msO17f3eDW5UHCoTfR0jDNPhxBtl7ypNERmq gWnuKR1fMnBCUfK+TqUR41M2kLyOFn9Hhk+NPJBc69aKe1SJ8Uw68Jbg3YCL87sPtozr HteAuaTlSyQ5s0WPX94bMatSDAc1H8YfCd1eHJMhSMyXp+6BjuZ+2FeXq2KxdvsLTyF9 9LhCIdbTTT9RLJOhWUAaSSoqSs8BORk2T+lZWIWDdC0Oihp2ZcExXe0+mp6WOBywWv75 iFD5+pMzwjBhevj4twrz6Y3KA0mvd5Lruloh+coiqDVNM6chsr6TvA9ZtTpZvcAufOzx 5VTA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:message-id:date:mime-version:user-agent:to :content-language:from:subject:content-transfer-encoding; bh=FKWxf8ZPEyrTwL2R22BsqQ3cFc2+ss3im6VzEtVTp1A=; b=1sOd4BgnYEd4Q/xqAKZAWZ53lwh8bn9lpXMdfSLlKYHqgbUKFAD86ScQtiJfX0SXrv 2aElQzird/BG9t0m4x5QXIPUiep1zbcAYEZiouM52jm0VmmkpfRHmRht4qa8neBvxZdf XgznRxKo5lnBv5W8A/I1MdEEa9bDYN45aTIcRVEp39jTlPReG5hlKNXTSbBOqtPXxRAj gqL5U1NCOzAu+9G8xo5otcutYsBKFBkp1VmcAqHcCOnR8P8fyCSmOLPXX/sMvuULFfaH 1CaGVGqtzwg8ap/vjjADjWTZywhHQ/LBESbWJouKykQxt9/g4Oa6PZb8YhvTrVhWSVpL suyg== X-Gm-Message-State: AOAM530BYMUpbuYBL+kGVmYuAZfEgwZgADmGTTHt7BAdN9KpkRxb7ijW o004YiYVgEgV6z6EjxqD4Gtxi5AKGnI= X-Google-Smtp-Source: ABdhPJxPrbNJONSRkkCOTGBXcW2WxrnZCbaaf7dGbqm75FGCn2t+saCJJgkth4ukCF6gvNzPZ7akbQ== X-Received: by 2002:a17:90a:3181:b0:1c7:6d18:391a with SMTP id j1-20020a17090a318100b001c76d18391amr24347385pjb.30.1648391252096; Sun, 27 Mar 2022 07:27:32 -0700 (PDT) Original-Received: from [192.168.2.158] (64-52-176-132.championbroadband.com. [64.52.176.132]) by smtp.gmail.com with ESMTPSA id d16-20020a056a00245000b004f7728a4346sm13101317pfj.79.2022.03.27.07.27.31 for <54478@debbugs.gnu.org> (version=TLS1_3 cipher=TLS_AES_128_GCM_SHA256 bits=128/128); Sun, 27 Mar 2022 07:27:31 -0700 (PDT) Content-Language: en-US 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:10271 Archived-At: I think the error is in use of "src" arg to make-seq in the following loop, in ice-9/psyntax.scm, starting at line 1633: (let lp ((var-ids var-ids) (vars vars) (vals vals) (tail (expand-tail-expr))) (cond ((null? var-ids) tail) ((not (car var-ids)) (lp (cdr var-ids) (cdr vars) (cdr vals) (make-seq src ((car vals)) tail))) (else (let ((var-ids (map (lambda (id) (if id (syntax->datum id) '_)) (reverse var-ids))) (vars (map (lambda (var) (or var (gen-label))) (reverse vars))) (vals (map (lambda (expand-expr id) (if id (expand-expr) (make-seq src (expand-expr) (build-void src)))) (reverse vals) (reverse var-ids)))) (build-letrec src #t var-ids vars vals tail)))))