conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix bugs introduced in prev commit

This commit is contained in:
Yuichi Nishiwaki 2014-07-17 13:39:28 +09:00
parent cf509a4922
commit 5e8c4af84b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
piclib/built-in.scm
View File

@ -46,7 +46,7 @@
list
(memq obj (cdr list)))))
(define (list->vector proc list)
(define (list->vector list)
(define vector (make-vector (length list)))
(define (go list i)
(if (null? list)
@ -56,7 +56,7 @@
(go (cdr list) (+ i 1)))))
(go list 0))
(define (vector->list proc vector)
(define (vector->list vector)
(define (go i)
(if (= i (vector-length vector))
'()
@ -71,7 +71,7 @@
(if (null? expr)
'()
(if (pair? expr)
(cons (proc (car expr))
(cons (walk proc (car expr))
(walk proc (cdr expr)))
(if (vector? expr)
(vector-map proc expr)