X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_read.c;fp=src%2Flisp%2Fao_lisp_read.c;h=f3b627bbb70c83c1c14b732425e555c64a455594;hb=b9009b3916956db00b7b78bd06fb0df704690eb1;hp=747963ab632b3cdba14d67930c8419b875c8c570;hpb=880c35363a2596202c8a3d980bf4ac41eceead66;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_read.c b/src/lisp/ao_lisp_read.c
index 747963ab..f3b627bb 100644
--- a/src/lisp/ao_lisp_read.c
+++ b/src/lisp/ao_lisp_read.c
@@ -15,6 +15,7 @@
 #include "ao_lisp.h"
 #include "ao_lisp_read.h"
 #include <math.h>
+#include <stdlib.h>
 
 static const uint16_t	lex_classes[128] = {
 	IGNORE,		/* ^@ */
@@ -445,7 +446,7 @@ _lex(void)
 						return NUM;
 					}
 					if (isfloat && hasdigit) {
-						token_float = atof(token_string);
+						token_float = strtof(token_string, NULL);
 						return FLOAT;
 					}
 					for (u = 0; u < NUM_NAMED_FLOATS; u++)
@@ -524,8 +525,7 @@ ao_lisp_read(void)
 	char			*string;
 	int			cons;
 	int			read_state;
-	ao_poly			v;
-
+	ao_poly			v = AO_LISP_NIL;
 
 	cons = 0;
 	read_state = 0;