Author: yamakenz
Date: Fri Aug 31 23:12:07 2007
New Revision: 4931
Modified:
sigscheme-trunk/lib/srfi-0.scm
Log:
* lib/srfi-0.scm
- (cond-expand): Fix not-matched case #f with explicit error
Modified: sigscheme-trunk/lib/srfi-0.scm
==============================================================================
--- sigscheme-trunk/lib/srfi-0.scm (original)
+++ sigscheme-trunk/lib/srfi-0.scm Fri Aug 31 23:12:07 2007
@@ -71,5 +71,6 @@
(car rest))
(else
(rec (cdr rest)))))))
- (and clause
- (cons 'begin (cdr clause)))))))
+ (if clause
+ (cons 'begin (cdr clause))
+ (error "unfulfilled cond-expand"))))))
