diff options
author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2024-05-31 23:59:04 -0400 |
---|---|---|
committer | Arne Babenhauserheide <arne_bab@web.de> | 2024-07-01 23:38:01 +0200 |
commit | 522f3687194f31b178f8b92d438bc89ce873eb83 (patch) | |
tree | 012d4d9c890fb0c00e1f1a5019615f986466f2f3 /module | |
parent | b2cc237a02dcb13625885e76df28bc254a522100 (diff) | |
download | guile-522f3687194f31b178f8b92d438bc89ce873eb83.tar.gz |
bug#71304: [PATCH] Add support for 'else' clause in R7RS cond-expand.
* module/ice-9/r7rs-libraries.scm (define-library)
<handle-cond-expand>: Add a pattern to match an 'else' clause.
Series-to: bug-guile@gnu.org
Diffstat (limited to 'module')
-rw-r--r-- | module/ice-9/r7rs-libraries.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/module/ice-9/r7rs-libraries.scm b/module/ice-9/r7rs-libraries.scm index 63a300a26..86b3dee24 100644 --- a/module/ice-9/r7rs-libraries.scm +++ b/module/ice-9/r7rs-libraries.scm @@ -64,8 +64,10 @@ ;; FIXME: R7RS (features) isn't quite the same as ;; %cond-expand-features; see scheme/base.scm. (memq (syntax->datum #'id) %cond-expand-features)))) - (syntax-case clauses () + (syntax-case clauses (else) (() #'()) ; R7RS says this is not specified :-/ + (((else decl ...)) + #'(decl ...)) (((test decl ...) . clauses) (if (has-req? #'test) #'(decl ...) |