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

the exit status due to calling (exit n) is 

: n            if n is a fixnum
  : EXIT_FAILURE otherwise
This commit is contained in:
Abdulaziz Ghuloum 2007-12-18 05:41:39 -05:00
parent e65629cb9e
commit 356a809970
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ikarus-runtime.c
View File

@ -978,7 +978,11 @@ ikp
ikrt_exit(ikp status, ikpcb* pcb){ ikrt_exit(ikp status, ikpcb* pcb){
ik_delete_pcb(pcb); ik_delete_pcb(pcb);
assert(total_allocated_pages == 0); assert(total_allocated_pages == 0);
exit((int)status); if(is_fixnum(status)){
exit(unfix(status));
} else {
exit(EXIT_FAILURE);
}
} }
ikp ikp