-
-LY_DEFINE (ly_warning,"ly:warn", 1, 0, 0,
- (SCM str), "Scheme callable function to issue the warning @code{msg}.")
-{
- SCM_ASSERT_TYPE (ly_c_string_p (str), str, SCM_ARG1, __FUNCTION__, "string");
- progress_indication ("\n");
- warning ("lily-guile: " + ly_scm2string (str));
- return SCM_BOOL_T;
-}
-
-LY_DEFINE (ly_dir_p, "ly:dir?", 1,0, 0, (SCM s),
- "type predicate. A direction is @code{-1}, @code{0} or "
- "@code{1}, where @code{-1} represents "
- "left or down and @code{1} represents right or up.")
-{
- if (is_number (s))
- {
- int i = ly_scm2int (s);
- return (i>= -1 && i <= 1) ? SCM_BOOL_T : SCM_BOOL_F;
- }
- return SCM_BOOL_F;
-}