fix typos.

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

diff --git a/lily/input-smob.cc b/lily/input-smob.cc
index f5786d5c3f5ed5246719d632bfb4642b77f81761..0c1018fc11f6e653de2b211880c5ab91443eb0f5 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*) ly_cdr (s);
+    return (Input*) SCM_CDR (s);
   else                                         
     return 0;                                  
 }
@@ -97,7 +97,7 @@ LY_DEFINE (ly_input_message, "ly:input-message", 2, 0, 0, (SCM sip, SCM msg),
   TODO: rename this function. ly:input-location? vs ly:input-location
  */
 LY_DEFINE (ly_input_location, "ly:input-location", 1, 0, 0, (SCM sip),
-         "Return input location in @var{sip} as (filename line column).")
+         "Return input location in @var{sip} as (file-name line column).")
 {
   Input *ip = unsmob_input (sip);
   SCM_ASSERT_TYPE (ip, sip, SCM_ARG1, __FUNCTION__, "input location");