]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/breathing-sign.cc
* lily/include/lily-guile.hh: many new ly_ functions. Thanks to
[lilypond.git] / lily / breathing-sign.cc
index 565975359fb57a25bff49f3ff2221a718299297d..312c3463d522c6d80a6b1f7755da2d81ee3a223d 100644 (file)
@@ -187,7 +187,7 @@ Breathing_sign::offset_callback (SCM element_smob, SCM)
 
   Real inter_f = Staff_symbol_referencer::staff_space (me)/2;
   int sz = Staff_symbol_referencer::line_count (me)-1;
-  return gh_double2scm (inter_f * sz * d);
+  return scm_make_real (inter_f * sz * d);
 }
 
 ADD_INTERFACE (Breathing_sign, "breathing-sign-interface",