Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 21:47:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Per R7RS, cond-expand doesn't signal an error when there are no matching clauses.

Browse source 
You can still use syntax-error to explicitly signal an error.
This commit is contained in:
Alex Shinn 2011-12-17 15:54:35 +09:00
parent 348b176172
commit 620eba1169
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/init-7.scm
View file

@ -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))