From 2247580fa704ee667fc90b364942f67e3e779c2d Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 5 Sep 2014 22:52:59 +0900 Subject: [PATCH] core any should work on improper lists. --- lib/init-7.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/init-7.scm b/lib/init-7.scm index 09280a89..61538ecd 100644 --- a/lib/init-7.scm +++ b/lib/init-7.scm @@ -72,9 +72,9 @@ (define (any pred ls . lol) (define (any1 pred ls) - (if (null? (cdr ls)) - (pred (car ls)) - ((lambda (x) (if x x (any1 pred (cdr ls)))) (pred (car ls))))) + (if (pair? (cdr ls)) + ((lambda (x) (if x x (any1 pred (cdr ls)))) (pred (car ls))) + (pred (car ls)))) (define (anyn pred lol) (if (every pair? lol) ((lambda (x) (if x x (anyn pred (map cdr lol))))