misc-deps
/
racket-unix-signals
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

XFORM tweaks and OSX compatibility

This commit is contained in:
Tony Garnock-Jones 2016-09-13 18:17:48 -04:00
parent 15f9dd5a09
commit ca32d290fc
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
unix-signals/private/unix-signals-extension.c
View File

@ -109,7 +109,9 @@ Scheme_Object *prim_get_signal_names(int argc, Scheme_Object **argv) {
/* Not POSIX.1-1990, but SUSv2 and POSIX.1-2001 */
ADD_SIGNAL_NAME(SIGBUS);
#if !defined(__APPLE__)
ADD_SIGNAL_NAME(SIGPOLL);
#endif
ADD_SIGNAL_NAME(SIGPROF);
ADD_SIGNAL_NAME(SIGSYS);
ADD_SIGNAL_NAME(SIGTRAP);
@ -133,19 +135,19 @@ Scheme_Object *prim_capture_signal(int argc, Scheme_Object **argv) {
int code = SCHEME_INT_VAL(argv[1]);
switch (code) {
case 0:
if (signal(signum, signal_handler_fn) == SIG_ERR) {
if (XFORM_HIDE_EXPR(signal(signum, signal_handler_fn) == SIG_ERR)) {
perror("unix-signals-extension signal(2) install");
return scheme_false;
}
break;
case 1:
if (signal(signum, SIG_IGN) == SIG_ERR) {
if (XFORM_HIDE_EXPR(signal(signum, SIG_IGN) == SIG_ERR)) {
perror("unix-signals-extension signal(2) ignore");
return scheme_false;
}
break;
case 2:
if (signal(signum, SIG_DFL) == SIG_ERR) {
if (XFORM_HIDE_EXPR(signal(signum, SIG_DFL) == SIG_ERR)) {
perror("unix-signals-extension signal(2) default");
return scheme_false;
}