Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Allow (exit) to return integer values to OS

Browse source
This commit is contained in:
Justin Ethier 2019-04-11 13:21:31 -04:00
parent 74c545416c
commit 7bc59f3ded
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
runtime.c
View file

@ -3122,6 +3122,10 @@ void Cyc_halt(object obj)
#if DEBUG_SHOW_DIAG #if DEBUG_SHOW_DIAG
gc_print_stats(Cyc_heap); gc_print_stats(Cyc_heap);
#endif #endif
if (obj_is_int(obj)) {
exit(obj_obj2int(obj));
}
exit(0); exit(0);
} }