Another attempt at removing separating-group-spanner.

[lilypond.git] / lily / lily-lexer-scheme.cc

diff --git a/lily/lily-lexer-scheme.cc b/lily/lily-lexer-scheme.cc
index 4bf001ea0a3941eb1e6002ad54889a55f9e38264..0d561f9d8b2bad8e96b664d94c02e49ec2f3d620 100644 (file)
--- a/lily/lily-lexer-scheme.cc
+++ b/lily/lily-lexer-scheme.cc
@@ -9,11 +9,12 @@
 
 #include "lily-lexer.hh"
 
-LY_DEFINE(ly_lexer_keywords, "ly:lexer-keywords",
+LY_DEFINE (ly_lexer_keywords, "ly:lexer-keywords",
          1, 0, 0, (SCM lexer),
          "Return a list of (KEY . CODE) pairs, signifying the lilypond reserved words list.")
 {
+  LY_ASSERT_SMOB (Lily_lexer, lexer, 1);
+
   Lily_lexer * lex = Lily_lexer::unsmob (lexer);
-  SCM_ASSERT_TYPE(lex, lexer, SCM_ARG1, __FUNCTION__, "lily lexer");
   return lex->keyword_list ();
 }