From b9009b3916956db00b7b78bd06fb0df704690eb1 Mon Sep 17 00:00:00 2001
From: Keith Packard <keithp@keithp.com>
Date: Sat, 2 Dec 2017 23:21:55 -0600
Subject: [PATCH] altos/lisp: use strtof instead of atof

atof returns double, strtof returns float.

Signed-off-by: Keith Packard <keithp@keithp.com>
---
 src/lisp/ao_lisp_read.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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;
-- 
2.30.2