bug#40252: closed ([R7RS] cond-expand in define-library forms)

[GNU bug Tracking System]

Your message dated Sat, 01 May 2021 22:25:39 +0200
with message-id <87y2cyjj5o.fsf@pobox.com>
and subject line Applied
has caused the debbugs.gnu.org bug report #40252,
regarding [R7RS] cond-expand in define-library forms
to be marked as done.

(If you believe you have received this mail in error, please contact
help-debbugs@gnu.org.)


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

--- Begin Message --- Subject: [R7RS] cond-expand in define-library forms Date: Fri, 27 Mar 2020 15:17:45 +0100

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

--- End Message ---

> --- Begin Message ---
>
>
>
> Subject: 
>
> Applied
>
>
>
>
> Date: 
>
> Sat, 01 May 2021 22:25:39 +0200
>
>
>
>
> User-agent: 
>
> Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux)
>
>
>
>
> Thanks for the report and fix, and apologies for the delay!
>
> Andy
>
>
> --- End Message ---