X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Flily-lexer-scheme.cc;h=fa783bd1758bcb25341c23693f5c58b9c6cc2c09;hb=e434a44b5d693cba78b5debb929a76da4c744981;hp=66e47d3d6b5e56b53253b0cd963e3f468f5ab895;hpb=9e69cb84d6ee5b0a861cd97869b10e3bdf0c833c;p=lilypond.git

diff --git a/lily/lily-lexer-scheme.cc b/lily/lily-lexer-scheme.cc
index 66e47d3d6b..fa783bd175 100644
--- a/lily/lily-lexer-scheme.cc
+++ b/lily/lily-lexer-scheme.cc
@@ -3,18 +3,19 @@
   
   source file of the GNU LilyPond music typesetter
   
-  (c) 2006 Han-Wen Nienhuys <hanwen@lilypond.org>
+  (c) 2006--2009 Han-Wen Nienhuys <hanwen@lilypond.org>
   
 */
 
 #include "lily-lexer.hh"
 
-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_DEFINE (ly_lexer_keywords, "ly:lexer-keywords",
+	  1, 0, 0, (SCM lexer),
+	  "Return a list of @code{(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 ();
 }
-