From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.ciao.gmane.io!not-for-mail From: Marc =?UTF-8?Q?Nieper-Wi=C3=9Fkirchen?= Newsgroups: gmane.lisp.guile.bugs Subject: bug#40252: [R7RS] cond-expand in define-library forms Date: Fri, 27 Mar 2020 15:17:45 +0100 Message-ID: Mime-Version: 1.0 Content-Type: multipart/alternative; boundary="000000000000a0b25005a1d6c4d0" Injection-Info: ciao.gmane.io; posting-host="ciao.gmane.io:159.69.161.202"; logging-data="130176"; mail-complaints-to="usenet@ciao.gmane.io" To: 40252@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane-mx.org@gnu.org Fri Mar 27 16:38:13 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 1jHr3j-000XmT-Ja for guile-bugs@m.gmane-mx.org; Fri, 27 Mar 2020 16:38:11 +0100 Original-Received: from localhost ([::1]:43222 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jHr3i-0004lU-JJ for guile-bugs@m.gmane-mx.org; Fri, 27 Mar 2020 11:38:10 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:49310) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jHr3b-0004i7-Ss for bug-guile@gnu.org; Fri, 27 Mar 2020 11:38:05 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1jHr3a-0008Gq-PS for bug-guile@gnu.org; Fri, 27 Mar 2020 11:38:03 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:55517) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1jHr3a-0008FS-JF for bug-guile@gnu.org; Fri, 27 Mar 2020 11:38:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1jHr3a-0007ZJ-GL for bug-guile@gnu.org; Fri, 27 Mar 2020 11:38:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Marc =?UTF-8?Q?Nieper-Wi=C3=9Fkirchen?= Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Fri, 27 Mar 2020 15:38:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 40252 X-GNU-PR-Package: guile X-Debbugs-Original-To: bug-guile@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.158532346829071 (code B ref -1); Fri, 27 Mar 2020 15:38:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 27 Mar 2020 15:37:48 +0000 Original-Received: from localhost ([127.0.0.1]:33257 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jHr3L-0007Yo-NW for submit@debbugs.gnu.org; Fri, 27 Mar 2020 11:37:48 -0400 Original-Received: from lists.gnu.org ([209.51.188.17]:35855) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jHpoC-0005RC-6t for submit@debbugs.gnu.org; Fri, 27 Mar 2020 10:18:04 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:51903) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jHpo9-0002Sj-85 for bug-guile@gnu.org; Fri, 27 Mar 2020 10:18:04 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1jHpo8-0005Gm-3h for bug-guile@gnu.org; Fri, 27 Mar 2020 10:18:01 -0400 Original-Received: from mail-pg1-x533.google.com ([2607:f8b0:4864:20::533]:38356) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1jHpo7-0005Bb-TX for bug-guile@gnu.org; Fri, 27 Mar 2020 10:18:00 -0400 Original-Received: by mail-pg1-x533.google.com with SMTP id x7so4636183pgh.5 for ; Fri, 27 Mar 2020 07:17:59 -0700 (PDT) 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=IXbvxp/WH/pVWN6T6mET8bYX5dfBbus11PmNDgfGWDY=; b=quHEUopFo0w/RuKPNaOxtkbrjwG3Jqh4sR185c9SkPuC8UC/WysbyG3PYqlz7r3WP+ YcGkMH9T5U6gv0DPjdBgA8V9WeZ/zi2tXAbYRFX3rghVmYEWzKvdB1zZiRvnYjhYErTJ v8bH3kbuEX9mYuz+ap86m9rRvyu0ih8xYw65Gt4al+CKV/kjV3Wj+6z66XAiagOkSL+l kY5ljazrliFA/o7R8PloYp9CT135E0qV99O+L4gvdWo/iRqCv5Mwzh2PIG4JMo1D64an vrNSDtzBkNojNPG6JOz/Q6fmLbcXtBqf4iChMIytAQxO3Fhb2rD7GjkdVAI/iz7Fg9Sh SHqg== 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=IXbvxp/WH/pVWN6T6mET8bYX5dfBbus11PmNDgfGWDY=; b=AaGcl4g8d6b+MkI8NjApk76MQU70NLuotpylskzDXxWF5MGpmysOZU+7Xvo+cdf2UO q8FoLAuSwa87oZH/+GyJeAUklvo85hlZ7TGh6X6utOrAXQUh+YgIVUrl3utYM+hRA67P qlEs/1uvMwCnxZ/GRdxOCrXE7NMDYiFhtvzTXxpNkfxY/p3qlSDpc/UNx8hTp+ywOyKz x/rej1zZn6aXlywOoDFXCwUJlgrSJGL0Pvd5Wj8F0i9UlX5sDasBRTOE8pwkweQQrQMV lCXoJQt7YFK3nshLtfbBBjnTW9X8HFAgFIspsIT5oF4CkqaRHF8Q9X6U3iF1XkYNJIHu VFjA== X-Gm-Message-State: ANhLgQ2A4PQmZAPM9x6H6eypQm6hOxvNjge0th0i6eAkzzNa/iFQ9v0w 4VDTyrNgaTDAdbwg0h4b1jnBu0jFCUrSgRJL7ENAvUlr0xo= X-Google-Smtp-Source: ADFU+vtIBP5l0nGCHDXeHiq/nvl/JFXTUA3RPTcvz3r3Mdk/6aqpl9NQ2VA3h1ztPOpjR0hikwrZkTuf/525PgnjmQI= X-Received: by 2002:aa7:9a4b:: with SMTP id x11mr14774329pfj.73.1585318677490; Fri, 27 Mar 2020 07:17:57 -0700 (PDT) X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Mailman-Approved-At: Fri, 27 Mar 2020 11:37:44 -0400 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: 209.51.188.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-mx.org@gnu.org Original-Sender: "bug-guile" Xref: news.gmane.io gmane.lisp.guile.bugs:9699 Archived-At: --000000000000a0b25005a1d6c4d0 Content-Type: text/plain; charset="UTF-8" The following valid R7RS library definition is not handled correctly by Guile: (define-library (guile-test) (export fold) (cond-expand ((library (scheme list)) (import (scheme list))) ((library (srfi srfi-1)) (import (srfi srfi-1))))) This is what I get: $ guile --r7rs -L . GNU Guile 3.0.1 ... > (import (guile-test)) While compiling expression: no code for module (scheme list) > Thus, the cond-expand library declaration does not seem to be handled correctly. Other experiments with cond-expand also show strange behaviors: (define-library (guile-test) (export foo) (cond-expand (guile (import (scheme base)))) (begin (define foo 42))) > (import (guile-test)) While compiling expression: Syntax error: unknown location: source expression failed to match any pattern in form (((begin (define foo 42)))) -- Marc --000000000000a0b25005a1d6c4d0 Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
The following valid R7RS library definition is not handled correctly by = Guile:
(defin= e-library (guile-test)
=C2=A0 (export fold)
=C2=A0 (cond-expand
= =C2=A0 =C2=A0 ((library (scheme list))
=C2=A0 =C2=A0 =C2=A0(import (sche= me list)))
=C2=A0 =C2=A0 ((library (srfi srfi-1))
=C2=A0 =C2=A0 =C2= =A0(import (srfi srfi-1)))))

This is what I get:

$ guile --r7rs -L .
GNU Guile 3.0.1
...
> (import (guile-test))
While compiling expre= ssion:
no code for module (scheme list)
>

Thus, the cond-expand library declaration does n= ot seem to be handled correctly. Other experiments with cond-expand also sh= ow strange behaviors:

(define-library (guile-test)
=C2=A0 (export foo)
=C2=A0 (cond-expand
= =C2=A0 =C2=A0 (guile
=C2=A0 =C2=A0 =C2=A0(import (scheme base))))
=C2= =A0 (begin
=C2=A0 =C2=A0 (define foo 42)))

> (import (guile-test))
While compiling expressi= on:
Syntax error:
unknown location: source expression failed to match= any pattern in form (((begin (define foo 42))))

--

Marc
--000000000000a0b25005a1d6c4d0--