mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Han-Wen Nienhuys 2007-01-25 01:16:24 +00:00
parent 8cb7939c78
commit 2a8d66b090
2 changed files with 4 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,3 +1,7 @@
2007-01-25 Han-Wen Nienhuys <hanwen@lilypond.org>
* vector.c: remove comment as per kryde's request.
2007-01-22 Han-Wen Nienhuys <hanwen@lilypond.org> 2007-01-22 Han-Wen Nienhuys <hanwen@lilypond.org>
* vectors.c (s_scm_vector_move_right_x): complain about naming. * vectors.c (s_scm_vector_move_right_x): complain about naming.

7
libguile/vectors.c
View file

@ -439,10 +439,6 @@ scm_i_vector_equal_p (SCM x, SCM y)
} }
/*
* Naming is inconsistent: this routine modifies its 3rd argument,
* rather than 1st. --hwn
*/
SCM_DEFINE (scm_vector_move_left_x, "vector-move-left!", 5, 0, 0, SCM_DEFINE (scm_vector_move_left_x, "vector-move-left!", 5, 0, 0,
(SCM vec1, SCM start1, SCM end1, SCM vec2, SCM start2), (SCM vec1, SCM start1, SCM end1, SCM vec2, SCM start2),
"Copy elements from @var{vec1}, positions @var{start1} to @var{end1},\n" "Copy elements from @var{vec1}, positions @var{start1} to @var{end1},\n"
@ -481,9 +477,6 @@ SCM_DEFINE (scm_vector_move_left_x, "vector-move-left!", 5, 0, 0,
} }
#undef FUNC_NAME #undef FUNC_NAME
/*
* See previous naming comment. --hwn
*/
SCM_DEFINE (scm_vector_move_right_x, "vector-move-right!", 5, 0, 0, SCM_DEFINE (scm_vector_move_right_x, "vector-move-right!", 5, 0, 0,
(SCM vec1, SCM start1, SCM end1, SCM vec2, SCM start2), (SCM vec1, SCM start1, SCM end1, SCM vec2, SCM start2),
"Copy elements from @var{vec1}, positions @var{start1} to @var{end1},\n" "Copy elements from @var{vec1}, positions @var{start1} to @var{end1},\n"