Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 08:47:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added (any) and (every)

Browse source
This commit is contained in:
Justin Ethier 2015-06-29 21:33:13 -04:00
parent 7b1092e27a
commit e7671ccf16
1 changed files with 21 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
scheme/cyclone/util.sld
View file

@ -3,8 +3,28 @@
(scheme char)) (scheme char))
; TODO: really need export-all for these cyclone libs!! ; TODO: really need export-all for these cyclone libs!!
(export (export
any
every
filter filter
tagged-list? tagged-list?
mangle mangle
mangle-global) mangle-global)
(include "../../util.scm")) (include "../../util.scm")
(begin
;; Simplified versions of every/any from SRFI-1
(define (any pred lst)
(let any* ((l (map pred lst)))
(cond
((null? l) #f) ; Empty list
((car l) #t) ; Done
(else
(any* (cdr l))))))
(define (every pred lst)
(let every* ((l (map pred lst)))
(cond
((null? l) #t) ; Empty list
((car l)
(every* (cdr l)))
(else
#f))))
))