mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-08 13:37:35 +02:00
Per R7RS, cond-expand doesn't signal an error when there are no matching clauses.
You can still use syntax-error to explicitly signal an error.
This commit is contained in:
parent
348b176172
commit
620eba1169
1 changed files with 1 additions and 1 deletions
|
@ -563,7 +563,7 @@
|
||||||
(else (error "cond-expand: bad feature" x)))
|
(else (error "cond-expand: bad feature" x)))
|
||||||
(memq (identifier->symbol x) *features*)))
|
(memq (identifier->symbol x) *features*)))
|
||||||
(let expand ((ls (cdr expr)))
|
(let expand ((ls (cdr expr)))
|
||||||
(cond ((null? ls) (error "cond-expand: no expansions" expr))
|
(cond ((null? ls)) ; (error "cond-expand: no expansions" expr)
|
||||||
((not (pair? (car ls))) (error "cond-expand: bad clause" (car ls)))
|
((not (pair? (car ls))) (error "cond-expand: bad clause" (car ls)))
|
||||||
((eq? 'else (identifier->symbol (caar ls)))
|
((eq? 'else (identifier->symbol (caar ls)))
|
||||||
(if (pair? (cdr ls))
|
(if (pair? (cdr ls))
|
||||||
|
|
Loading…
Add table
Reference in a new issue