snc: removed unnecessary keyword "function"

src/snc/snl.lem

@@ -479,8 +479,8 @@ member(p) ::= NAME(t).				{ p = expr(E_MEMBER, t); }
 functions(p) ::= .					{ p = 0; }
 functions(p) ::= functions(fs) function(f).		{ p = link_expr(fs, f); }
 
-function(p) ::= FUNCTION(l) basetype(t) declarator(d) block(b). {
-	p = expr(D_FUNCDEF, l, decl_add_base_type(d, t), b);
+function(p) ::= basetype(t) declarator(d) block(b). {
+	p = expr(D_FUNCDEF, token_from_expr(d), decl_add_base_type(d, t), b);
 }
 
 // Literal (C) code

src/snc/snl.re

@@ -245,7 +245,6 @@ snl:
 	"float"		{ TYPEWORD(FLOAT,	"float"); }
 	"for"		{ KEYWORD(FOR,		"for"); }
 	"foreign"	{ TYPEWORD(FOREIGN,	"foreign"); }
-	"function"	{ TYPEWORD(FUNCTION,	"function"); }
 	"if"		{ KEYWORD(IF,		"if"); }
 	"int"		{ TYPEWORD(INT,		"int"); }
 	"long"		{ TYPEWORD(LONG,	"long"); }