altos/lisp: Add 'big' ints -- 24 bits wide

[fw/altos] / src / lisp / ao_lisp_read.c

diff --git a/src/lisp/ao_lisp_read.c b/src/lisp/ao_lisp_read.c
index 8c06e19898f93c2300e60711396063f1666eb50a..5115f46e28af8b989c3ca199f852298c4ae70cb6 100644 (file)
--- a/src/lisp/ao_lisp_read.c
+++ b/src/lisp/ao_lisp_read.c
@@ -245,7 +245,7 @@ lex_quoted(void)
 #define AO_LISP_TOKEN_MAX      32
 
 static char    token_string[AO_LISP_TOKEN_MAX];
-static int     token_int;
+static int32_t token_int;
 static int     token_len;
 
 static inline void add_token(int c) {
@@ -497,7 +497,7 @@ ao_lisp_read(void)
                                v = AO_LISP_NIL;
                        break;
                case NUM:
-                       v = ao_lisp_int_poly(token_int);
+                       v = ao_lisp_integer_poly(token_int);
                        break;
                case BOOL:
                        if (token_string[0] == 't')