release commit

[lilypond.git] / lily / input-smob.cc

diff --git a/lily/input-smob.cc b/lily/input-smob.cc
index b5b5097b62c8bc096789adba27a603c26e475d45..f5786d5c3f5ed5246719d632bfb4642b77f81761 100644 (file)
--- a/lily/input-smob.cc
+++ b/lily/input-smob.cc
@@ -65,7 +65,7 @@ unsmob_input (SCM s)
   if (SCM_IMP (s))
     return 0;
   if (SCM_CAR (s) == (SCM)input_tag) // ugh.
-    return (Input*) SCM_CDR (s);
+    return (Input*) ly_cdr (s);
   else                                         
     return 0;                                  
 }