From f7eed523becbb11eca2c85db0dd04c10d2123634 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Sat, 20 Feb 2016 02:12:54 -0500 Subject: [PATCH] Added back missing code --- scheme/read.sld | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/scheme/read.sld b/scheme/read.sld index 6194b675..c1ee4a58 100644 --- a/scheme/read.sld +++ b/scheme/read.sld @@ -451,7 +451,8 @@ (define (token-numeric? a) (or (char-numeric? (car a)) (and (> (length a) 1) - (char-numeric? (cadr a))))) + (char-numeric? (cadr a)) + (sign? (car a))))) ;; parse-atom -> [chars] -> literal (define (parse-atom a)