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

Fixes bug 164823: ikarus.boot remaining open

This commit is contained in:
Abdulaziz Ghuloum 2007-11-30 07:06:30 -05:00
parent 59acb45c19
commit 6386b3420a
2 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/last-revision
View File

@ -1 +1 @@
1149 1151

19
src/ikarus-fasl.c
View File

@ -102,9 +102,20 @@ void ik_fasl_load(ikpcb* pcb, char* fasl_file){
p.marks = 0; p.marks = 0;
p.marks_size = 0; p.marks_size = 0;
} }
if(p.memp == p.memq){
int err = munmap(mem, mapsize);
if(err != 0){
fprintf(stderr, "Failed to unmap fasl file: %s\n", strerror(errno));
exit(-1);
}
close(fd);
}
ikp val = ik_exec_code(pcb, v); ikp val = ik_exec_code(pcb, v);
val = void_object; val = void_object;
if(val != void_object){ if(val != void_object){
/* this is from revision 1
and is no longer needed
and should be removed */
ik_print(val); ik_print(val);
} }
} }
@ -112,14 +123,6 @@ void ik_fasl_load(ikpcb* pcb, char* fasl_file){
fprintf(stderr, "fasl-read did not reach eof!\n"); fprintf(stderr, "fasl-read did not reach eof!\n");
exit(-10); exit(-10);
} }
{
int err = munmap(mem, mapsize);
if(err != 0){
fprintf(stderr, "Failed to unmap fasl file: %s\n", strerror(errno));
exit(-1);
}
}
close(fd);
} }
static ikp static ikp