From 88cae35481ca1e527dbfc1116e4574386088bdb2 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 13 Jun 2011 20:53:04 +0900 Subject: [PATCH] fixing bug in map-onto --- lib/srfi/1/misc.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/srfi/1/misc.scm b/lib/srfi/1/misc.scm index 1e7568df..eace025f 100644 --- a/lib/srfi/1/misc.scm +++ b/lib/srfi/1/misc.scm @@ -1,9 +1,9 @@ ;; misc.scm -- miscellaneous list utilities -;; Copyright (c) 2009 Alex Shinn. All rights reserved. +;; Copyright (c) 2009-2011 Alex Shinn. All rights reserved. ;; BSD-style license: http://synthcode.com/license.txt (define (map-onto proc ls init) - (let lp ((ls ls) (res init)) + (let lp ((ls (reverse ls)) (res init)) (if (null? ls) res (lp (cdr ls) (cons (proc (car ls)) res))))) (define (append! . lists) (concatenate! lists))