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