diff options
author | Daniel Llorens <lloda@sarc.name> | 2021-08-05 19:43:21 +0200 |
---|---|---|
committer | Daniel Llorens <lloda@sarc.name> | 2021-08-06 13:06:51 +0200 |
commit | a34c762de0cda0fdd56fd582de0cdc71eab2116e (patch) | |
tree | 1eeeb8b6814b6ae50505326ea160038ae981fbb8 /libguile/vectors.h | |
parent | bfda8d397251cdb88bf1e775c85c41a4d01061ac (diff) | |
download | guile-a34c762de0cda0fdd56fd582de0cdc71eab2116e.tar.gz |
Extend core vector-copy to r7rs vector-copy
* libguile/vectors.h: Declare scm_vector_copy_partial.
* libguile/vectors.c (scm_vector_copy_partial): As stated.
(scm_vector_copy): Reuse scm_vector_copy_partial.
* module/scheme/base.scm: Reuse core vector-copy.
* module/srfi/srfi-43: Reuse core vector-copy.
* test-suite/tests/vectors.test: Test vector-copy.
Diffstat (limited to 'libguile/vectors.h')
-rw-r--r-- | libguile/vectors.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/vectors.h b/libguile/vectors.h index 41e2c8909..1c04f9afe 100644 --- a/libguile/vectors.h +++ b/libguile/vectors.h @@ -88,7 +88,7 @@ SCM_API SCM *scm_vector_writable_elements (SCM vec, #define SCM_I_VECTOR_LENGTH(x) (((size_t) SCM_CELL_WORD_0 (x)) >> 8) SCM_INTERNAL SCM scm_i_vector_equal_p (SCM x, SCM y); - +SCM_INTERNAL SCM scm_vector_copy_partial (SCM vec, SCM start, SCM end); SCM_INTERNAL void scm_init_vectors (void); |