From 71a1cb6f091796b398430a05850ae2b14d52ea05 Mon Sep 17 00:00:00 2001
From: Jeff Bezanson <jeff.bezanson@gmail.com>
Date: Thu, 11 Oct 2012 23:00:29 -0400
Subject: [PATCH] update tiny/lisp.c for 64-bit

---
 tiny/lisp.c | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/tiny/lisp.c b/tiny/lisp.c
index 07d05f6..4b9ffbc 100644
--- a/tiny/lisp.c
+++ b/tiny/lisp.c
@@ -26,8 +26,13 @@
 #include <ctype.h>
 #include <sys/types.h>
 
+#ifdef __LP64__
+typedef u_int64_t value_t;
+typedef int64_t number_t;
+#else
 typedef u_int32_t value_t;
 typedef int32_t number_t;
+#endif
 
 typedef struct {
     value_t car;
@@ -496,7 +501,7 @@ void print(FILE *f, value_t v)
     value_t cd;
 
     switch (tag(v)) {
-    case TAG_NUM: fprintf(f, "%d", numval(v)); break;
+    case TAG_NUM: fprintf(f, "%ld", numval(v)); break;
     case TAG_SYM: fprintf(f, "%s", ((symbol_t*)ptr(v))->name); break;
     case TAG_BUILTIN: fprintf(f, "#<builtin %s>",
                               builtin_names[intval(v)]); break;
@@ -558,7 +563,7 @@ value_t eval_sexpr(value_t e, value_t *penv)
             lerror("eval: error: variable %s has no value\n", sym->name);
         return v;
     }
-    if ((unsigned)(char*)&nargs < (unsigned)stack_bottom || SP>=(N_STACK-100))
+    if ((unsigned long)(char*)&nargs < (unsigned long)stack_bottom || SP>=(N_STACK-100))
         lerror("eval: error: stack overflow\n");
     saveSP = SP;
     PUSH(e);