From 72dabaa24df8161f6a965f6c102838fe38e4667f Mon Sep 17 00:00:00 2001 From: stibear Date: Wed, 18 Jun 2014 22:00:24 +0900 Subject: [PATCH] correct `pair-for-each` --- piclib/srfi/1.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/piclib/srfi/1.scm b/piclib/srfi/1.scm index e1b2a4f1..259c0c5a 100644 --- a/piclib/srfi/1.scm +++ b/piclib/srfi/1.scm @@ -358,10 +358,10 @@ (if (null? clist) (let rec ((clist clist)) (if (pair? clist) - (begin (f (car clist)) (rec (cdr clist))))) + (begin (f clist) (rec (cdr clist))))) (let rec ((clists (cons clist clists))) (if (every pair? clists) - (begin (apply f (map car clists)) (rec (map cdr clists))))))) + (begin (apply f clists) (rec (map cdr clists))))))) (define (map! f list . lists) (if (null? lists)