-Input *
-unsmob_input (SCM s)
-{
- if (SCM_IMP (s))
- return 0;
- if (SCM_CAR (s) == (SCM)input_tag) // ugh.
- return (Input*) SCM_CDR (s);
- else
- return 0;
-}
-
-/* We don't use IMPLEMENT_TYPE_P, since the smobification part is
- implemented separately from the class. */
-LY_DEFINE (ly_input, "ly:input-location?", 1, 0, 0,
- (SCM x),
- "Return #t if @var{x} is an input location.")
-{
- return unsmob_input (x) ? SCM_BOOL_T : SCM_BOOL_F;