~ chicken-r7rs (master) bc5623316c7cff7373e7baba4f4b66af1362088a

commit bc5623316c7cff7373e7baba4f4b66af1362088a
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Fri Jul 24 11:59:57 2015 +1200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Fri Jul 24 13:12:20 2015 +1200

    Use car, cadr in tests to avoid srfi-1 dependency

diff --git a/tests/run.scm b/tests/run.scm
index 3e8c30b..a38d3ba 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -538,8 +538,8 @@
 
 (test-group "6.10: Control features"
 
-  (define (1st . a) (first a))
-  (define (2nd . a) (second a))
+  (define (1st . a) (car a))
+  (define (2nd . a) (cadr a))
   (define (acc proc f . rest) ; accumulate results of `f`
     (let ((a '()))
       (apply proc (lambda args (set! a (cons (apply f args) a))) rest)