* lily/main.cc (setup_guile_env): new function. Set GC min_yields

[lilypond.git] / lily / lexer.ll

diff --git a/lily/lexer.ll b/lily/lexer.ll
index 47a25a30020d9fb9d52e0b199a4c926ff1463ffa..130bd472ebd5d0d81b5f25144edb825ed24794c0 100644 (file)
--- a/lily/lexer.ll
+++ b/lily/lexer.ll
@@ -571,7 +571,7 @@ BOM_UTF8    \357\273\277
        int cnv = sscanf (YYText (), "%lf", &r);
        assert (cnv == 1);
 
-       yylval.scm = scm_make_real (r);
+       yylval.scm = scm_from_double (r);
        return REAL;
 }
 
@@ -857,7 +857,7 @@ scan_fraction (String frac)
 
        int n = String_convert::dec2int (left);
        int d = String_convert::dec2int (right);
-       return scm_cons (scm_int2num (n), scm_int2num (d));
+       return scm_cons (scm_from_int (n), scm_from_int (d));
 }
 
 // Breaks for flex 2.5.31