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

make-u1vector takes an optional fill

Browse source
This commit is contained in:
Alex Shinn 2021-04-15 17:02:44 +09:00
parent e74614d4b3
commit fc6e5da915
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/srfi/160/base.sld
View file

@ -119,7 +119,13 @@
(define (f64vector . ls) (list->f64vector ls)) (define (f64vector . ls) (list->f64vector ls))
(define (c64vector . ls) (list->c64vector ls)) (define (c64vector . ls) (list->c64vector ls))
(define (c128vector . ls) (list->c128vector ls)) (define (c128vector . ls) (list->c128vector ls))
(define (make-u1vector len) (make-uvector SEXP_U1 len)) (define (make-u1vector len . o)
(let ((res (make-uvector SEXP_U1 len)))
(if (and (pair? o) (not (zero? (car o))))
(do ((i 0 (+ i 1)))
((>= i len))
(u1vector-set! res i 1)))
res))
(define make-u8vector make-bytevector) (define make-u8vector make-bytevector)
(define (make-s8vector len . o) (define (make-s8vector len . o)
(let ((res (make-uvector SEXP_S8 len))) (let ((res (make-uvector SEXP_S8 len)))