Author: yamakenz
Date: Fri Jun 29 02:24:07 2007
New Revision: 4611
Modified:
sigscheme-trunk/test/test-pair.scm
Log:
* test/test-pair.scm
- Fix conditional c[ad]+r tests for !SCM_COMPAT_SIOD_BUGS
Modified: sigscheme-trunk/test/test-pair.scm
==============================================================================
--- sigscheme-trunk/test/test-pair.scm (original)
+++ sigscheme-trunk/test/test-pair.scm Fri Jun 29 02:24:07 2007
@@ -313,7 +313,7 @@
(assert-equal? "cddddr" 15 (cddddr tree))))
(if (and (provided? "sigscheme")
- (provided? "compat-siod"))
+ (provided? "siod-bugs"))
(begin
(assert-equal? "caar empty list" '() (caar '()))
(assert-equal? "cadr empty list" '() (cadr '()))
