Refer to provided? rather than the deprecated feature?.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 13ac529..1969205 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -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
 2002-09-24  Gary Houston  <ghouston@arglist.com>
 
        * inline.h (scm_double_cell): prevent reordering of statements

diff --git a/libguile/posix.c b/libguile/posix.c
index 3fac8ef..45b175c 100644 (file)
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -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"
             (),
            "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
 {
            "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"
             (),
            "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
 {
            "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"
             (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
            "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"
             (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
            "system supports effective IDs.\n"
            "The return value is unspecified.")
 #define FUNC_NAME s_scm_setegid

diff --git a/libguile/script.c b/libguile/script.c
index dfbe74d..f3d89dc 100644 (file)
--- a/libguile/script.c
+++ b/libguile/script.c
@@ -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. */
-  if (turn_on_debugging || (interactive  && !dont_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);
     }
     {
       tail = scm_cons (scm_cons (sym_turn_on_debugging, SCM_EOL), tail);
     }