Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-11 06:57:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/chibi/test.scm
View file

@ -4,6 +4,16 @@
;;> Simple testing framework adapted from the Chicken @scheme{test} ;;> Simple testing framework adapted from the Chicken @scheme{test}
;;> module. ;;> 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 ;; exception utilities

3
lib/chibi/test.sld
View file

@ -13,8 +13,7 @@
(scheme write) (scheme write)
(scheme complex) (scheme complex)
(scheme process-context) (scheme process-context)
(scheme time) (scheme time))
(only (srfi 1) every))
(cond-expand (cond-expand
(chibi (chibi
(import (only (chibi) pair-source print-exception))) (import (only (chibi) pair-source print-exception)))