lexer.ll: leave scanning of numbers to Guile so that the REAL -1 can be an integer.

diff --git a/lily/lexer.ll b/lily/lexer.ll
index 2b79c4dab711aaf99443e5feef3aa282709a9d46..4ac6d5efdaa5e6b97fde45b0da527070ee0a60db 100644 (file)
--- 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