mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

* posix.c (scm_waitpid): move the HAVE_WAITPID test out of the

Browse source 
procedure body, so that the procedure is left undefined if waitpid
	is not available.  previously in this case the procedure was
	defined but would raise a system-error when called, which is
	pointless.  I intend to make the same change for other procedures
	and deprecate SCM_SYSMISSING and scm_sysmissing.
This commit is contained in:
Gary Houston 1999-12-28 21:50:52 +00:00
parent 22efa9960a
commit d00ae47e13
2 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/ChangeLog
View file

@ -1,3 +1,12 @@
1999-12-28 Gary Houston <ghouston@arglist.com>
* posix.c (scm_waitpid): move the HAVE_WAITPID test out of the
procedure body, so that the procedure is left undefined if waitpid
is not available. previously in this case the procedure was
defined but would raise a system-error when called, which is
pointless. I intend to make the same change for other procedures
and deprecate SCM_SYSMISSING and scm_sysmissing.
1999-12-22 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* feature.c (s_scm_add_hook_x): Call scm_wrong_type_arg instead of

10
libguile/posix.c
View file

@ -400,8 +400,7 @@ Interrupt signal.
}
#undef FUNC_NAME
#ifdef HAVE_WAITPID
GUILE_PROC (scm_waitpid, "waitpid", 1, 1, 0,
(SCM pid, SCM options),
"This procedure collects status information from a child process which
@ -447,7 +446,6 @@ The integer status value.
@end enumerate")
#define FUNC_NAME s_scm_waitpid
{
#ifdef HAVE_WAITPID
int i;
int status;
int ioptions;
@ -464,13 +462,9 @@ The integer status value.
if (i == -1)
SCM_SYSERROR;
return scm_cons (SCM_MAKINUM (0L + i), SCM_MAKINUM (0L + status));
#else
SCM_SYSMISSING;
/* not reached. */
return SCM_BOOL_F;
#endif
}
#undef FUNC_NAME
#endif /* HAVE_WAITPID */
GUILE_PROC (scm_status_exit_val, "status:exit-val", 1, 0, 0,
(SCM status),