Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-13 15:57:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Tweaks to __halt

Browse source
This commit is contained in:
Justin Ethier 2015-03-13 23:46:38 -04:00
parent 5bd3deefa1
commit f307504744
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
runtime.h
View file

@ -990,13 +990,14 @@ static object Cyc_error_va(int count, object obj1, va_list ap) {
return boolean_f;
}
static void __halt(object obj) {
static object __halt(object obj) {
#if DEBUG_SHOW_DIAG
printf("\nhalt: ");
Cyc_display(obj);
printf("\n");
#endif
my_exit(obj);
return nil;
}
#define __sum(c,x,y) integer_type c; c.tag = integer_tag; c.value = (((integer_type *)(x))->value + ((integer_type *)(y))->value);