mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-14 00:07:36 +02:00
Tweaks to __halt
This commit is contained in:
parent
5bd3deefa1
commit
f307504744
1 changed files with 2 additions and 1 deletions
|
@ -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);
|
||||||
|
|
Loading…
Add table
Reference in a new issue