mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Tim Pierce 1997-11-20 04:40:02 +00:00
parent 28d8ab3c69
commit e41530ba09
1 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/strop.c
View file

@ -133,7 +133,19 @@ scm_string_rindex (str, chr, frm, to)
? SCM_BOOL_F ? SCM_BOOL_F
: SCM_MAKINUM (pos)); : SCM_MAKINUM (pos));
} }
/* What is the purpose of these strange assertions in the following
`substring' functions?
SCM_ASSERT (3==scm_ilength (args), scm_makfrom0str (s_substring_move_left_x),
SCM_WNA, NULL);
Why bother to make args a `rest argument' if we are merely going to
force it to include exactly three arguments? Why not merely make
them all required arguments instead? This makes me suspicious that
the functions haven't been fully implemented. If anyone can
clarify what's going on here, please do so. -twp */
SCM_PROC(s_substring_move_left_x, "substring-move-left!", 2, 0, 1, scm_substring_move_left_x); SCM_PROC(s_substring_move_left_x, "substring-move-left!", 2, 0, 1, scm_substring_move_left_x);
SCM SCM