Inlining every in (chibi test) to remove SRFI-1 dependency.

This commit is contained in:
Alex Shinn 2012-11-10 21:10:14 +09:00
parent 41c80d06ca
commit e2c8f144b5
2 changed files with 11 additions and 2 deletions

View file

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

View file

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