release: 1.1.46

[lilypond.git] / lily / lily-guile.cc

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index bec431671e0f23c850487534428e21d1c0d1d81d..46d5908d47e3cf1c3940aec8850341ca7bc79037 100644 (file)
--- a/lily/lily-guile.cc
+++ b/lily/lily-guile.cc
@@ -121,3 +121,26 @@ array_to_list (SCM *a , int l)
   return list;
 }
 
+SCM
+ly_warning (SCM str)
+{
+  assert (gh_string_p (str));
+  warning ("scheme: " + ly_scm2string (str));
+  return SCM_BOOL_T;
+}
+
+void
+init_functions ()
+{
+  scm_make_gsubr ("ly-warn", 1, 0, 0, ly_warning);
+}
+
+
+extern void init_symbols ();
+
+void
+init_lily_guile ()
+{
+  init_symbols();
+  init_functions ();
+}