(ly_module_define): only define variable if

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

diff --git a/lily/input-smob.cc b/lily/input-smob.cc
index fafeab7b7dc7879b895ba25de2e5d881a5c519dc..595ee717dac934135ade3cf6bf3870402fdb0ea2 100644 (file)
--- a/lily/input-smob.cc
+++ b/lily/input-smob.cc
@@ -83,9 +83,9 @@ LY_DEFINE (ly_input_message, "ly:input-message", 2, 0, 0, (SCM sip, SCM msg),
          "Print @var{msg} as a GNU compliant error message, pointing to the"
           "location in @var{sip}.\n")
 {
-  Input *ip = unsmob_input(sip);
+  Input *ip = unsmob_input (sip);
   SCM_ASSERT_TYPE (ip, sip, SCM_ARG1, __FUNCTION__, "input location");
-  SCM_ASSERT_TYPE (gh_string_p (msg), msg, SCM_ARG2, __FUNCTION__, "string");
+  SCM_ASSERT_TYPE (ly_c_string_p (msg), msg, SCM_ARG2, __FUNCTION__, "string");
 
   String m = ly_scm2string (msg);
   ip->message (m);
@@ -93,6 +93,9 @@ LY_DEFINE (ly_input_message, "ly:input-message", 2, 0, 0, (SCM sip, SCM msg),
   return SCM_UNDEFINED;
 }
 
+/*
+  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).")
 {