diff options
author | Daniel Llorens <lloda@sarc.name> | 2021-08-05 20:01:22 +0200 |
---|---|---|
committer | Daniel Llorens <lloda@sarc.name> | 2021-08-06 13:06:51 +0200 |
commit | 091f5062cb2f9f5701b999c3b7ee88a480eeecf7 (patch) | |
tree | 7062105248397f19bac4269f9daf655ba955f91d /module/scheme | |
parent | a34c762de0cda0fdd56fd582de0cdc71eab2116e (diff) | |
download | guile-091f5062cb2f9f5701b999c3b7ee88a480eeecf7.tar.gz |
Reuse core vector-fill! in (scheme base)
module/scheme/base.scm: As stated.
Diffstat (limited to 'module/scheme')
-rw-r--r-- | module/scheme/base.scm | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/module/scheme/base.scm b/module/scheme/base.scm index fcb1f49b7..c57bdf110 100644 --- a/module/scheme/base.scm +++ b/module/scheme/base.scm @@ -57,7 +57,6 @@ string->vector vector->string (r7:string->utf8 . string->utf8) (r7:vector->list . vector->list) - (r7:vector-fill! . vector-fill!) vector-copy! vector-append vector-for-each vector-map (r7:bytevector-copy . bytevector-copy) (r7:bytevector-copy! . bytevector-copy!) @@ -115,7 +114,7 @@ (char-ready? . u8-ready?) unless unquote unquote-splicing values - vector vector-copy + vector vector-copy vector-fill! vector-length vector-ref vector-set! vector? when with-exception-handler write-char zero?)) @@ -502,15 +501,6 @@ defaults to 0 and SEND defaults to the length of SOURCE." ((v start #:optional (end (vector-length v))) (vector->string (vector-copy v start end))))) -(define r7:vector-fill! - (case-lambda* - ((vec fill) (vector-fill! vec fill)) - ((vec fill start #:optional (end (vector-length vec))) - (let lp ((r start)) - (unless (= r end) - (vector-set! vec r fill) - (lp (+ r 1))))))) - (define (%subbytevector bv start end) (define mlen (- end start)) (define out (make-bytevector mlen)) |