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

Previous Next

Package: guile;

Reported by: Marc Nieper-Wißkirchen <marc.nieper+gnu <at> gmail.com>

Date: Fri, 27 Mar 2020 15:38:02 UTC

Severity: normal

Done: Andy Wingo <wingo <at> pobox.com>

Bug is archived. No further changes may be made.

Full log

View this message in rfc822 format

From: Adam Nelson <adam <at> nels.onl>
To: 40252 <at> debbugs.gnu.org
Subject: bug#40252: [PATCH] [R7RS] cond-expand in define-library forms
Date: Thu, 7 May 2020 13:26:25 -0400

It looks like this bug was caused by a missing dot in a list in the 
cond-expand macro. This small patch fixes it:

diff --git a/module/ice-9/r7rs-libraries.scm 
b/module/ice-9/r7rs-libraries.scm
index 6db9de873..221806ad1 100644
--- a/module/ice-9/r7rs-libraries.scm
+++ b/module/ice-9/r7rs-libraries.scm
@@ -88,11 +88,11 @@
         (((include-library-declarations filename ...) . decls)
          (syntax-case (handle-includes #'(filename ...)) ()
            ((decl ...)
-            (partition-decls #'(decl ... decls) exports imports code))))
+            (partition-decls #'(decl ... . decls) exports imports code))))
         (((cond-expand clause ...) . decls)
          (syntax-case (handle-cond-expand #'(clause ...)) ()
            ((decl ...)
-            (partition-decls #'(decl ... decls) exports imports code))))))
+            (partition-decls #'(decl ... . decls) exports imports 
code))))))

     (syntax-case stx ()
       ((_ name decl ...)
This bug report was last modified 4 years and 106 days ago.

Previous Next

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