* lily/lily-guile.cc (type_check_assignment): use

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

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index 9562ba7bd52f492de0bdda6fc3797ced9e5907bc..d9dc08382bd195770e853164aad8ee42686a13f2 100644 (file)
--- a/lily/lily-guile.cc
+++ b/lily/lily-guile.cc
@@ -600,7 +600,7 @@ type_check_assignment (SCM sym, SCM val,  SCM type_symbol)
        {
          SCM errport = scm_current_error_port ();
          ok = false;
-         SCM typefunc = scm_primitive_eval (ly_symbol2scm ("type-name"));
+         SCM typefunc = ly_scheme_function ("type-name");
          SCM type_name = gh_call1 (typefunc, type);