Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 06:39:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

core any should work on improper lists.

Browse source
This commit is contained in:
Alex Shinn 2014-09-05 22:52:59 +09:00
parent 524edc0660
commit 2247580fa7
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/init-7.scm
View file

@ -72,9 +72,9 @@
(define (any pred ls . lol) (define (any pred ls . lol)
(define (any1 pred ls) (define (any1 pred ls)
(if (null? (cdr ls)) (if (pair? (cdr ls))
(pred (car ls)) ((lambda (x) (if x x (any1 pred (cdr ls)))) (pred (car ls)))
((lambda (x) (if x x (any1 pred (cdr ls)))) (pred (car ls))))) (pred (car ls))))
(define (anyn pred lol) (define (anyn pred lol)
(if (every pair? lol) (if (every pair? lol)
((lambda (x) (if x x (anyn pred (map cdr lol)))) ((lambda (x) (if x x (anyn pred (map cdr lol))))