Implement the full arithmetic part of the ISO spec.

1 files changed, 3 insertions, 1 deletions

diff --git a/parser.c b/parser.c
index c0ac1d8..9b16063 100644
--- a/parser.c
+++ b/parser.c
@@ -536,8 +536,10 @@ SkipWhite:
 				goto Integer;
 			}
 			while(isdigitrune(peek)){
-				numD += (peek - L'0') / (double)(10 * place);
+				double addition = (peek - L'0') / (double)(10 * place);
+				numD += addition;
 				peek = Bgetrune(parsein);
+				place *= 10;
 			}
 			Bungetrune(parsein);
 			/* Should also lex 123.45E10 */