From e2c8f144b5f6b1985a3cab805f0f410ae4bed5a8 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sat, 10 Nov 2012 21:10:14 +0900
Subject: [PATCH] Inlining every in (chibi test) to remove SRFI-1 dependency.

---
 lib/chibi/test.scm | 10 ++++++++++
 lib/chibi/test.sld |  3 +--
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/lib/chibi/test.scm b/lib/chibi/test.scm
index 50ee849f..92dfa86c 100644
--- a/lib/chibi/test.scm
+++ b/lib/chibi/test.scm
@@ -4,6 +4,16 @@
 ;;> Simple testing framework adapted from the Chicken @scheme{test}
 ;;> module.
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; list utilities
+
+;; Simplified version of SRFI-1 every.
+(define (every pred ls)
+  (or (null? ls)
+      (if (null? (cdr ls))
+          (pred (car ls))
+          (if (pred (car ls)) (every1 pred (cdr ls)) #f))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; exception utilities
 
diff --git a/lib/chibi/test.sld b/lib/chibi/test.sld
index e72bffc4..dc95cdbe 100644
--- a/lib/chibi/test.sld
+++ b/lib/chibi/test.sld
@@ -13,8 +13,7 @@
           (scheme write)
           (scheme complex)
           (scheme process-context)
-          (scheme time)
-          (only (srfi 1) every))
+          (scheme time))
   (cond-expand
    (chibi
     (import (only (chibi) pair-source print-exception)))