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)))