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

(scm_nice): Correction to error detection. Reported by

Browse source 
Matthias Koeppe.
This commit is contained in:
Kevin Ryde 2004-09-07 00:06:18 +00:00
parent e227addf97
commit f1c82f55b9
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/posix.c
View file

@ -1422,7 +1422,11 @@ SCM_DEFINE (scm_nice, "nice", 1, 0, 0,
"The return value is unspecified.")
#define FUNC_NAME s_scm_nice
{
if (nice (scm_to_int (incr)) != 0)
/* nice() returns "prio-NZERO" on success or -1 on error, but -1 can arise
from "prio-NZERO", so an error must be detected from errno changed */
errno = 0;
nice (scm_to_int (incr));
if (errno != 0)
SCM_SYSERROR;
return SCM_UNSPECIFIED;
}