* lily/lily-guile.cc (robust_scm2double): new function. Use throughout.

[lilypond.git] / lily / note-head.cc

diff --git a/lily/note-head.cc b/lily/note-head.cc
index bce006a9206302263ff7654f5140e00e0ba388d6..5942c1dc6dc121e6d1c3e7302370492e936dc2e9 100644 (file)
--- a/lily/note-head.cc
+++ b/lily/note-head.cc
@@ -303,7 +303,7 @@ Note_head::stem_attachment_coordinate (Grob *me, Axis a)
 
   result = (a == X_AXIS) ? ly_car (result) : ly_cdr (result);
   
-  return gh_number_p (result) ?  gh_scm2double (result) : 0.0;
+  return robust_scm2double (result,0);
 }
 
 int