From 74173bdc6c81431269229ba213ba331b5ae34c71 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 17 May 2011 00:29:49 -0700 Subject: [PATCH] fixing bug in append-map for a single list --- lib/srfi/1/fold.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lib/srfi/1/fold.scm b/lib/srfi/1/fold.scm index 892b075c..d5fb4e42 100644 --- a/lib/srfi/1/fold.scm +++ b/lib/srfi/1/fold.scm @@ -60,8 +60,7 @@ '() (let ((rev-ls (reverse ls))) (let lp ((ls (cdr rev-ls)) (res (car rev-ls))) - (if (null? ls) res (lp (cdr ls) (append (f (car ls) res)))) - ))) + (if (null? ls) res (lp (cdr ls) (append (f (car ls)) res)))))) (if (and (pair? ls) (every pair? lists)) (let lp ((lists (cons ls lists))) (let ((vals (apply f (map car lists)))