GNU bug report logs - #40252
[R7RS] cond-expand in define-library forms

Previous Next

Full log

View this message in rfc822 format

From: help-debbugs <at> gnu.org (GNU bug Tracking System)
To: Marc Nieper-Wißkirchen <marc.nieper+gnu <at> gmail.com>
Subject: bug#40252: closed (Applied)
Date: Sat, 01 May 2021 20:26:02 +0000

[Message part 1 (text/plain, inline)]

Your bug report

#40252: [R7RS] cond-expand in define-library forms

which was filed against the guile package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to 40252 <at> debbugs.gnu.org.

-- 
40252: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=40252
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems

[Message part 2 (message/rfc822, inline)]

From: Andy Wingo <wingo <at> pobox.com>
To: 40252-done <at> debbugs.gnu.org
Subject: Applied
Date: Sat, 01 May 2021 22:25:39 +0200

Thanks for the report and fix, and apologies for the delay!

Andy

[Message part 3 (message/rfc822, inline)]

From: Marc Nieper-Wißkirchen <marc.nieper+gnu <at> gmail.com>
To: bug-guile <at> gnu.org
Subject: [R7RS] cond-expand in define-library forms
Date: Fri, 27 Mar 2020 15:17:45 +0100

[Message part 4 (text/plain, inline)]

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

[Message part 5 (text/html, inline)]

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.