mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

(s_scm_vector_move_right_x): complain about naming.

Browse source
This commit is contained in:
Han-Wen Nienhuys 2007-01-22 16:00:23 +00:00
parent d00a0704a9
commit 8cb7939c78
2 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/ChangeLog
View file

@ -1,5 +1,7 @@
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.
* srcprop.c: regularize comments. * srcprop.c: regularize comments.
* eval.c: remove superfluous ifndef DEVAL. * eval.c: remove superfluous ifndef DEVAL.

7
libguile/vectors.c
View file

@ -439,6 +439,10 @@ 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"
@ -477,6 +481,9 @@ 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"