From baf80f77092414fff1c0882b8b676b94715ebaa2 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Fri, 21 Oct 2011 13:39:04 +0200
Subject: [PATCH] lexer.ll: leave scanning of numbers to Guile so that the REAL
 -1 can be an integer.

---
 lily/lexer.ll | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/lily/lexer.ll b/lily/lexer.ll
index 2b79c4dab7..4ac6d5efda 100644
--- a/lily/lexer.ll
+++ b/lily/lexer.ll
@@ -650,12 +650,7 @@ BOM_UTF8	\357\273\277
 
 -{UNSIGNED}	| // backup rule
 {REAL}		{
-	Real r;
-	int cnv = sscanf (YYText (), "%lf", &r);
-	assert (cnv == 1);
-	(void) cnv;
-
-	yylval.scm = scm_from_double (r);
+	yylval.scm = scm_c_read_string (YYText ());
 	return REAL;
 }
 -\.	{ // backup rule
-- 
2.39.2