From f30750474473c1595c441f65b7caa06b2462d0c0 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 13 Mar 2015 23:46:38 -0400
Subject: [PATCH] Tweaks to __halt

---
 runtime.h | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/runtime.h b/runtime.h
index a8272bd8..281c0d7d 100644
--- a/runtime.h
+++ b/runtime.h
@@ -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);