return result;
}
-LY_DEFINE(ly_gulp_file, "ly-gulp-file", 1,0, 0,
+LY_DEFINE(ly_gulp_file, "ly:gulp-file", 1,0, 0,
(SCM name),
"Read the file named @var{name}, and return its contents in a string. The
file is looked up using the lilypond search path.
return s;
}
-LY_DEFINE(ly_warning,"ly-warn", 1, 0, 0,
+LY_DEFINE(ly_warning,"ly:warn", 1, 0, 0,
(SCM str),"Scheme callable function to issue the warning @code{msg}.")
{
SCM_ASSERT_TYPE (gh_string_p (str), str, SCM_ARG1, __FUNCTION__, "string");
return SCM_BOOL_T;
}
-LY_DEFINE(ly_isdir, "dir?", 1,0, 0, (SCM s),
+LY_DEFINE(ly_isdir, "ly:dir?", 1,0, 0, (SCM s),
"type predicate. A direction is a -1, 0 or 1, where -1 represents left or
down and 1 represents right or up.
")
if (verbose_global_b)
progress_indication ("\n");
+
scm_primitive_load_path (scm_makfrom0str ("lily.scm"));
}
}
-LY_DEFINE(ly_number2string, "ly-number->string", 1, 0,0,
+LY_DEFINE(ly_number2string, "ly:number->string", 1, 0,0,
(SCM s),
" converts @var{num} to a string without generating many decimals. It
leaves a space at the end.
#include "version.hh"
-LY_DEFINE(ly_version, "ly-version", 0, 0, 0, (),
+LY_DEFINE(ly_version, "ly:version", 0, 0, 0, (),
"Return the current lilypond version as a list, e.g.
@code{(1 3 127 uu1)}.
")
return gh_eval_str ((char*)vs);
}
-LY_DEFINE(ly_unit, "ly-unit", 0, 0, 0, (),
+LY_DEFINE(ly_unit, "ly:unit", 0, 0, 0, (),
"Return the unit used for lengths as a string.")
{
return scm_makfrom0str (INTERNAL_UNIT);
}
-LY_DEFINE(ly_verbose, "ly-verbose", 0, 0, 0, (),
+LY_DEFINE(ly_verbose, "ly:verbose", 0, 0, 0, (),
"Return whether lilypond is being run in verbose mode.")
{
return gh_bool2scm (verbose_global_b);