From e2c8f144b5f6b1985a3cab805f0f410ae4bed5a8 Mon Sep 17 00:00:00 2001 From: Alex Shinn 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)))