diff -ru lua-4.0/src/lparser.c lua-4.0-constructors/src/lparser.c
--- lua-4.0/src/lparser.c	Fri Oct 27 13:39:52 2000
+++ lua-4.0-constructors/src/lparser.c	Sun Dec 16 16:44:47 2001
@@ -484,6 +484,7 @@
 
 static void recfield (LexState *ls) {
 /* recfield -> (NAME | '['exp1']') = exp1 */
+ /* recfield -> FUNCTION funcname body */
 switch (ls->t.token) {
 case TK_NAME: {
 luaK_kstr(ls, checkname(ls));
@@ -495,7 +496,14 @@
 check(ls, ']');
 break;
 }
- default: luaK_error(ls, "<name> or `[' expected");
+ case TK_FUNCTION: {
+ int line = ls->linenumber;
+ next(ls);
+ luaK_kstr(ls, checkname(ls));
+ body(ls, 0, line);
+ return;
+ }
+ default: luaK_error(ls, "<name>, `function' or `[' expected");
 }
 check(ls, '=');
 exp1(ls);
@@ -503,12 +511,12 @@
 
 
 static int recfields (LexState *ls) {
- /* recfields -> recfield { ',' recfield } [','] */
+ /* recfields -> recfield { [','] recfield } [','] */
 FuncState *fs = ls->fs;
 int n = 1; /* at least one element */
 recfield(ls);
- while (ls->t.token == ',') {
- next(ls);
+ for (;;) {
+ optional(ls, ',');
 if (ls->t.token == ';' &#124;&#124; ls->t.token == '}')
 break;
 recfield(ls);
@@ -550,9 +558,11 @@
 cd->k = ls->t.token;
 break;
 }
+ case TK_FUNCTION:
 case TK_NAME: { /* may be listfields or recfields */
 lookahead(ls);
- if (ls->lookahead.token != '=') /* expression? */
+ /* <name> '=' or 'function' <name> */
+ if (ls->lookahead.token != '=' && ls->lookahead.token != TK_NAME)
 goto case_default;
 /* else go through to recfields */
 }
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="http://lua-users.org/files/wiki_insecure/power_patches/4.0/constructors.patch">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="http://lua-users.org/files/wiki_insecure/power_patches/4.0/constructors.patch" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>