mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Check return value of nice

Browse source 
'nice' is marked as 'warn_unused_result' on some versions
of Ubuntu which causes make distcheck to fail.
This implements the error checking logic exactly as POSIX suggests
to silence the warning.

* libguile/posix.c (scm_nice): new error checking logic.
This commit is contained in:
Michael Gran 2023-06-09 13:06:41 -07:00
parent a0805cc274
commit 58723e026a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/posix.c
View file

@ -2137,8 +2137,8 @@ SCM_DEFINE (scm_nice, "nice", 1, 0, 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)
int prio = nice (scm_to_int (incr));
if (prio == -1 && errno != 0)
SCM_SYSERROR;
return SCM_UNSPECIFIED;