mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +02:00
Code Activity

Fix R7RS include-library-declarations and cond-expand in define-library

Browse source 
* module/ice-9/r7rs-libraries.scm (define-library): Fix bug handling
include-library-declarations and cond-expand subforms.  Thanks to Adam
Nelson for the fix!  Fixes #40252.
This commit is contained in:
Andy Wingo 2021-05-01 22:23:06 +02:00
parent d643913ac2
commit d4b7cbc68c
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/ice-9/r7rs-libraries.scm
View file

@ -1,5 +1,5 @@
;; R7RS library support ;; R7RS library support
;; Copyright (C) 2020 Free Software Foundation, Inc. ;; Copyright (C) 2020, 2021 Free Software Foundation, Inc.
;; ;;
;; This library is free software; you can redistribute it and/or ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public
@ -88,11 +88,11 @@
(((include-library-declarations filename ...) . decls) (((include-library-declarations filename ...) . decls)
(syntax-case (handle-includes #'(filename ...)) () (syntax-case (handle-includes #'(filename ...)) ()
((decl ...) ((decl ...)
(partition-decls #'(decl ... decls) exports imports code)))) (partition-decls #'(decl ... . decls) exports imports code))))
(((cond-expand clause ...) . decls) (((cond-expand clause ...) . decls)
(syntax-case (handle-cond-expand #'(clause ...)) () (syntax-case (handle-cond-expand #'(clause ...)) ()
((decl ...) ((decl ...)
(partition-decls #'(decl ... decls) exports imports code)))))) (partition-decls #'(decl ... . decls) exports imports code))))))
(syntax-case stx () (syntax-case stx ()
((_ name decl ...) ((_ name decl ...)