Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 05:06:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing bug in map-onto

Browse source
This commit is contained in:
Alex Shinn 2011-06-13 20:53:04 +09:00
parent d7147bf67e
commit 88cae35481
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/srfi/1/misc.scm
View file

@ -1,9 +1,9 @@
;; misc.scm -- miscellaneous list utilities ;; 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 ;; BSD-style license: http://synthcode.com/license.txt
(define (map-onto proc ls init) (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))))) (if (null? ls) res (lp (cdr ls) (cons (proc (car ls)) res)))))
(define (append! . lists) (concatenate! lists)) (define (append! . lists) (concatenate! lists))