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

Refer to provided? rather than the deprecated feature?.

Browse source
This commit is contained in:
Neil Jerram 2002-10-03 22:23:43 +00:00
parent 66add4ebf5
commit 480fa28d20
3 changed files with 16 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/ChangeLog
View file

@ -1,3 +1,13 @@
2002-09-29 Neil Jerram <neil@ossau.uklinux.net>
* script.c (scm_compile_shell_switches): Fix bad spelling of
`explicitly' in comment.
2002-09-28 Neil Jerram <neil@ossau.uklinux.net>
* posix.c (scm_geteuid, scm_getegid, scm_seteuid, scm_setegid):
Refer to provided? in doc string rather than deprecated feature?.
2002-09-24 Gary Houston <ghouston@arglist.com>
* inline.h (scm_double_cell): prevent reordering of statements

8
libguile/posix.c
View file

@ -572,7 +572,7 @@ SCM_DEFINE (scm_geteuid, "geteuid", 0, 0, 0,
(),
"Return an integer representing the current effective user ID.\n"
"If the system does not support effective IDs, then the real ID\n"
"is returned. @code{(feature? 'EIDs)} reports whether the\n"
"is returned. @code{(provided? 'EIDs)} reports whether the\n"
"system supports effective IDs.")
#define FUNC_NAME s_scm_geteuid
{
@ -589,7 +589,7 @@ SCM_DEFINE (scm_getegid, "getegid", 0, 0, 0,
(),
"Return an integer representing the current effective group ID.\n"
"If the system does not support effective IDs, then the real ID\n"
"is returned. @code{(feature? 'EIDs)} reports whether the\n"
"is returned. @code{(provided? 'EIDs)} reports whether the\n"
"system supports effective IDs.")
#define FUNC_NAME s_scm_getegid
{
@ -634,7 +634,7 @@ SCM_DEFINE (scm_seteuid, "seteuid", 1, 0, 0,
(SCM id),
"Sets the effective user ID to the integer @var{id}, provided the process\n"
"has appropriate privileges. If effective IDs are not supported, the\n"
"real ID is set instead -- @code{(feature? 'EIDs)} reports whether the\n"
"real ID is set instead -- @code{(provided? 'EIDs)} reports whether the\n"
"system supports effective IDs.\n"
"The return value is unspecified.")
#define FUNC_NAME s_scm_seteuid
@ -660,7 +660,7 @@ SCM_DEFINE (scm_setegid, "setegid", 1, 0, 0,
(SCM id),
"Sets the effective group ID to the integer @var{id}, provided the process\n"
"has appropriate privileges. If effective IDs are not supported, the\n"
"real ID is set instead -- @code{(feature? 'EIDs)} reports whether the\n"
"real ID is set instead -- @code{(provided? 'EIDs)} reports whether the\n"
"system supports effective IDs.\n"
"The return value is unspecified.")
#define FUNC_NAME s_scm_setegid

2
libguile/script.c
View file

@ -656,7 +656,7 @@ scm_compile_shell_switches (int argc, char **argv)
}
/* If debugging was requested, or we are interactive and debugging
was not explicitely turned off, turn on debugging. */
was not explicitly turned off, turn on debugging. */
if (turn_on_debugging || (interactive && !dont_turn_on_debugging))
{
tail = scm_cons (scm_cons (sym_turn_on_debugging, SCM_EOL), tail);