conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

(waitpid -1 #f) now returns #f if no child has died yet.

This commit is contained in:
Abdulaziz Ghuloum 2008-06-13 22:11:51 -07:00
parent 8f0f0abbca
commit 333dc03f8f
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/ikarus.posix.ss
View File

@ -122,7 +122,7 @@
(signal-code->signal-name (signal-code->signal-name
(wstatus-received-signal r))) (wstatus-received-signal r)))
r] r]
[want-error? [(and want-error? (not (eqv? r 0)))
(error who (strerror r) pid)] (error who (strerror r) pid)]
[else #f]))])) [else #f]))]))

2
scheme/last-revision
View File

@ -1 +1 @@
1515 1516

8
src/ikarus-process.c
View File

@ -193,11 +193,11 @@ ikrt_waitpid(ikptr rvec, ikptr pid, ikptr block /*, ikpcb* pcb */){
ref(rvec, off_record_data+2*wordsize) = ref(rvec, off_record_data+2*wordsize) =
ik_signal_num_to_code(WTERMSIG(status)); ik_signal_num_to_code(WTERMSIG(status));
} }
}else if(r == 0){ /* would have blocked */ return rvec;
; /* let rvec return as all #f's */ } else if(r == 0){ /* would have blocked */
}else { return fix(0);
} else {
return ik_errno_to_code(); return ik_errno_to_code();
} }
return rvec;
} }