From 620eba1169af48ea0bfa79eb116e84686c0376f1 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sat, 17 Dec 2011 15:54:35 +0900 Subject: [PATCH] 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. --- lib/init-7.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/init-7.scm b/lib/init-7.scm index 009b5e5d..52f413fc 100644 --- a/lib/init-7.scm +++ b/lib/init-7.scm @@ -563,7 +563,7 @@ (else (error "cond-expand: bad feature" x))) (memq (identifier->symbol x) *features*))) (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))) ((eq? 'else (identifier->symbol (caar ls))) (if (pair? (cdr ls))