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