artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

scm.mes: make-vector: fix fill.

Browse source
This commit is contained in:
Jan Nieuwenhuizen 2016-07-24 14:10:18 +02:00
parent dc5e39926a
commit 04f0eed66a
2 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scm.mes
View file

@ -104,7 +104,7 @@
(define (vector . rest) (list->vector rest)) (define (vector . rest) (list->vector rest))
(define (make-vector n . x) (define (make-vector n . x)
(let ((fill (if (pair? x) (cdr x) *unspecified*))) (let ((fill (if (pair? x) (car x) *unspecified*)))
(list->vector (let loop ((n n)) (list->vector (let loop ((n n))
(if (= 0 n) '() (if (= 0 n) '()
(cons fill (loop (- n 1)))))))) (cons fill (loop (- n 1))))))))

3
test.mes
View file

@ -127,6 +127,9 @@
(pass-if "vector-length" (seq? (vector-length #(1)) 1)) (pass-if "vector-length" (seq? (vector-length #(1)) 1))
(pass-if "list->vector" (sequal? (list->vector '(a b c)) #(a b c))) (pass-if "list->vector" (sequal? (list->vector '(a b c)) #(a b c)))
(pass-if "vector" (sequal? #(vector 0 1 2) #(vector 0 1 2))) (pass-if "vector" (sequal? #(vector 0 1 2) #(vector 0 1 2)))
(when (not guile?)
(pass-if "make-vector" (sequal? (make-vector 3) #(*unspecified* *unspecified* *unspecified*))))
(pass-if "make-vector 2" (sequal? (make-vector 3 0) #(0 0 0)))
(pass-if "vector-ref" (seq? (vector-ref #(0 1) 1) 1)) (pass-if "vector-ref" (seq? (vector-ref #(0 1) 1) 1))
(when (not guile?) ;; hmm guile segfaults (when (not guile?) ;; hmm guile segfaults
(pass-if "vector-set" (equal? (let ((v #(0 1))) (vector-set! v 1 'q) v) #(0 q))) (pass-if "vector-set" (equal? (let ((v #(0 1))) (vector-set! v 1 'q) v) #(0 q)))