From ad94e0eed94755018dd998f6ebaccc23ca066a26 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 1 Apr 2016 03:29:08 -0400
Subject: [PATCH] Issue #52 - Recognize flonums with a leading dot

---
 scheme/read.sld | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/scheme/read.sld b/scheme/read.sld
index 974379af..b2068e02 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -498,7 +498,11 @@
 (define (token-numeric? a)
     (or (char-numeric? (car a))
         (and (> (length a) 1)
-             (char-numeric? (cadr a))
+             (eq? #\. (car a))
+             (char-numeric? (cadr a)))
+        (and (> (length a) 1)
+             (or (char-numeric? (cadr a))
+                 (eq? #\. (cadr a)))
              (sign? (car a)))))
 
 ;; parse-atom -> [chars] -> literal