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> 2002-09-24 Gary Houston <ghouston@arglist.com>
* inline.h (scm_double_cell): prevent reordering of statements * 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" "Return an integer representing the current effective user ID.\n"
"If the system does not support effective IDs, then the real 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.") "system supports effective IDs.")
#define FUNC_NAME s_scm_geteuid #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" "Return an integer representing the current effective group ID.\n"
"If the system does not support effective IDs, then the real 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.") "system supports effective IDs.")
#define FUNC_NAME s_scm_getegid #define FUNC_NAME s_scm_getegid
{ {
@ -634,7 +634,7 @@ SCM_DEFINE (scm_seteuid, "seteuid", 1, 0, 0,
(SCM id), (SCM id),
"Sets the effective user ID to the integer @var{id}, provided the process\n" "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" "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" "system supports effective IDs.\n"
"The return value is unspecified.") "The return value is unspecified.")
#define FUNC_NAME s_scm_seteuid #define FUNC_NAME s_scm_seteuid
@ -660,7 +660,7 @@ SCM_DEFINE (scm_setegid, "setegid", 1, 0, 0,
(SCM id), (SCM id),
"Sets the effective group ID to the integer @var{id}, provided the process\n" "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" "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" "system supports effective IDs.\n"
"The return value is unspecified.") "The return value is unspecified.")
#define FUNC_NAME s_scm_setegid #define FUNC_NAME s_scm_setegid

4
libguile/script.c
View file

@ -656,8 +656,8 @@ scm_compile_shell_switches (int argc, char **argv)
} }
/* If debugging was requested, or we are interactive and debugging /* 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)) if (turn_on_debugging || (interactive && !dont_turn_on_debugging))
{ {
tail = scm_cons (scm_cons (sym_turn_on_debugging, SCM_EOL), tail); tail = scm_cons (scm_cons (sym_turn_on_debugging, SCM_EOL), tail);
} }