From 541d7f45507330a3a2f9e80bfa7036225c3098f7 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 17 May 2011 00:35:05 -0700 Subject: [PATCH] fixing append-map for real --- lib/srfi/1/fold.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lib/srfi/1/fold.scm b/lib/srfi/1/fold.scm index d5fb4e42..5650d951 100644 --- a/lib/srfi/1/fold.scm +++ b/lib/srfi/1/fold.scm @@ -58,9 +58,8 @@ (if (null? lists) (if (null? ls) '() - (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)))))) + (let lp ((ls (reverse 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)))