Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 08:17:35 +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; return boolean_f;
} }
static void __halt(object obj) { static object __halt(object obj) {
#if DEBUG_SHOW_DIAG #if DEBUG_SHOW_DIAG
printf("\nhalt: "); printf("\nhalt: ");
Cyc_display(obj); Cyc_display(obj);
printf("\n"); printf("\n");
#endif #endif
my_exit(obj); 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); #define __sum(c,x,y) integer_type c; c.tag = integer_tag; c.value = (((integer_type *)(x))->value + ((integer_type *)(y))->value);