mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-02 13:00:26 +02:00
* 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.
This commit is contained in:
parent
22efa9960a
commit
d00ae47e13
2 changed files with 11 additions and 8 deletions
|
@ -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>
|
1999-12-22 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
|
||||||
|
|
||||||
* feature.c (s_scm_add_hook_x): Call scm_wrong_type_arg instead of
|
* feature.c (s_scm_add_hook_x): Call scm_wrong_type_arg instead of
|
||||||
|
|
|
@ -400,8 +400,7 @@ Interrupt signal.
|
||||||
}
|
}
|
||||||
#undef FUNC_NAME
|
#undef FUNC_NAME
|
||||||
|
|
||||||
|
#ifdef HAVE_WAITPID
|
||||||
|
|
||||||
GUILE_PROC (scm_waitpid, "waitpid", 1, 1, 0,
|
GUILE_PROC (scm_waitpid, "waitpid", 1, 1, 0,
|
||||||
(SCM pid, SCM options),
|
(SCM pid, SCM options),
|
||||||
"This procedure collects status information from a child process which
|
"This procedure collects status information from a child process which
|
||||||
|
@ -447,7 +446,6 @@ The integer status value.
|
||||||
@end enumerate")
|
@end enumerate")
|
||||||
#define FUNC_NAME s_scm_waitpid
|
#define FUNC_NAME s_scm_waitpid
|
||||||
{
|
{
|
||||||
#ifdef HAVE_WAITPID
|
|
||||||
int i;
|
int i;
|
||||||
int status;
|
int status;
|
||||||
int ioptions;
|
int ioptions;
|
||||||
|
@ -464,13 +462,9 @@ The integer status value.
|
||||||
if (i == -1)
|
if (i == -1)
|
||||||
SCM_SYSERROR;
|
SCM_SYSERROR;
|
||||||
return scm_cons (SCM_MAKINUM (0L + i), SCM_MAKINUM (0L + status));
|
return scm_cons (SCM_MAKINUM (0L + i), SCM_MAKINUM (0L + status));
|
||||||
#else
|
|
||||||
SCM_SYSMISSING;
|
|
||||||
/* not reached. */
|
|
||||||
return SCM_BOOL_F;
|
|
||||||
#endif
|
|
||||||
}
|
}
|
||||||
#undef FUNC_NAME
|
#undef FUNC_NAME
|
||||||
|
#endif /* HAVE_WAITPID */
|
||||||
|
|
||||||
GUILE_PROC (scm_status_exit_val, "status:exit-val", 1, 0, 0,
|
GUILE_PROC (scm_status_exit_val, "status:exit-val", 1, 0, 0,
|
||||||
(SCM status),
|
(SCM status),
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue