X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpaper-book.cc;h=94eb705aedfbf435580aff3022d36850170b09bf;hb=d406ee9fd73ec9b7273da824b3123cbba03bc952;hp=81b3a4782cb5365c369bab14af6dd618aa335565;hpb=f03e58bb0d24330204ce7c8b70904707ef07ecca;p=lilypond.git

diff --git a/lily/paper-book.cc b/lily/paper-book.cc
index 81b3a4782c..94eb705aed 100644
--- a/lily/paper-book.cc
+++ b/lily/paper-book.cc
@@ -1,7 +1,7 @@
 /*
   This file is part of LilyPond, the GNU music typesetter.
 
-  Copyright (C) 2004--2009 Jan Nieuwenhuizen <janneke@gnu.org>
+  Copyright (C) 2004--2010 Jan Nieuwenhuizen <janneke@gnu.org>
 
   LilyPond is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
@@ -134,7 +134,7 @@ Paper_book::output_aux (SCM output_channel,
       scm_call_3 (proc,
 		  performances (),
 		  output_channel,
-		  scm_long2num (*first_performance_number));
+		  scm_from_long (*first_performance_number));
       *first_performance_number += scm_ilength (performances_);
     }
 
@@ -155,7 +155,7 @@ Paper_book::output_aux (SCM output_channel,
       if (scores_ == SCM_EOL)
 	return 0;
       paper_->set_variable (ly_symbol2scm ("first-page-number"),
-			    scm_long2num (*first_page_number));
+			    scm_from_long (*first_page_number));
       paper_->set_variable (ly_symbol2scm ("is-last-bookpart"),
 			    ly_bool2scm (is_last));
       /* Generate all stencils to trigger font loads.  */
@@ -245,7 +245,7 @@ Paper_book::classic_output_aux (SCM output,
       scm_call_3 (proc,
 		  performances (),
 		  output,
-		  scm_long2num (*first_performance_number));
+		  scm_from_long (*first_performance_number));
       *first_performance_number += scm_ilength (performances_);
     }