[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.11-75-g447af51

[Ludovic Courtès]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=447af515a3ca2525974efa12fea8513223540403

The branch, stable-2.0 has been updated
       via  447af515a3ca2525974efa12fea8513223540403 (commit)
      from  3a3316e200ac49f0e8e9004c233747efd9f54a04 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 447af515a3ca2525974efa12fea8513223540403
Author: Ludovic Courtès <address@hidden>
Date:   Mon Sep 22 22:51:23 2014 +0200

    Add 'EXIT_SUCCESS' and 'EXIT_FAILURE'.
    
    Suggested by Frank Terbeck <address@hidden>.
    
    * libguile/posix.c (scm_init_posix): Define 'EXIT_SUCCESS' and
      'EXIT_FAILURE'.
    * doc/ref/posix.texi (Processes): Document them.

-----------------------------------------------------------------------

Summary of changes:
 doc/ref/posix.texi |   10 ++++++++--
 libguile/posix.c   |    6 ++++++
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/doc/ref/posix.texi b/doc/ref/posix.texi
index 7ca2fb0..acf1727 100644
--- a/doc/ref/posix.texi
+++ b/doc/ref/posix.texi
@@ -1793,13 +1793,19 @@ Example: (system* "echo" "foo" "bar")
 Terminate the current process with proper unwinding of the Scheme stack.
 The exit status zero if @var{status} is not supplied.  If @var{status}
 is supplied, and it is an integer, that integer is used as the exit
-status.  If @var{status} is @code{#t} or @code{#f}, the exit status is 0
-or 1, respectively.
+status.  If @var{status} is @code{#t} or @code{#f}, the exit status is
address@hidden or @var{EXIT_FAILURE}, respectively.
 
 The procedure @code{exit} is an alias of @code{quit}.  They have the
 same functionality.
 @end deffn
 
address@hidden {Scheme Variable} EXIT_SUCCESS
address@hidden {Scheme Variable} EXIT_FAILURE
+These constants represent the standard exit codes for success (zero) or
+failure (one.)
address@hidden defvr
+
 @deffn {Scheme Procedure} primitive-exit [status]
 @deffnx {Scheme Procedure} primitive-_exit [status]
 @deffnx {C Function} scm_primitive_exit (status)
diff --git a/libguile/posix.c b/libguile/posix.c
index 7fc6903..2654716 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -2247,6 +2247,12 @@ void
 scm_init_posix ()
 {
   scm_add_feature ("posix");
+#ifdef EXIT_SUCCESS
+  scm_c_define ("EXIT_SUCCESS", scm_from_int (EXIT_SUCCESS));
+#endif
+#ifdef EXIT_FAILURE
+  scm_c_define ("EXIT_FAILURE", scm_from_int (EXIT_FAILURE));
+#endif
 #ifdef HAVE_GETEUID
   scm_add_feature ("EIDs");
 #endif


hooks/post-receive
-- 
GNU Guile