X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=blobdiff_plain;f=lily%2Finput-smob.cc;h=f5786d5c3f5ed5246719d632bfb4642b77f81761;hb=2536405e9584f63d559653183971c0fec57ba037;hp=b5b5097b62c8bc096789adba27a603c26e475d45;hpb=a033b0430d27807f0f7617381d2f021a495b1a58;p=lilypond.git

diff --git a/lily/input-smob.cc b/lily/input-smob.cc
index b5b5097b62..f5786d5c3f 100644
--- 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;					
 }