fix line number and file.

[apps/madmutt.git] / tools / cpkg2c.mll

diff --git a/tools/cpkg2c.mll b/tools/cpkg2c.mll
index 82be124..2e76dd9 100644 (file)
--- a/tools/cpkg2c.mll
+++ b/tools/cpkg2c.mll
@@ -312,11 +312,12 @@ and ext_pkg pkg = parse
                     {
                       let rettype = parse_rettype (lnum lexbuf) pkg.file ret in
                       let args    = parse_args    (lnum lexbuf) pkg.file args in
+                      let f, l    = pkg.file, lnum lexbuf in
                       let body    = ext_body pkg (B.create 1024) lexbuf in
                       let m       = { rettype = rettype;
                                       args = args;
                                       fname = fname;
-                                      body = body }, pkg.file, lnum lexbuf in
+                                      body = body }, f, l in
                       ext_pkg {pkg with methods = m::pkg.methods} lexbuf
                     }
 | '}' sp* ';' (sp* '\n' as s)?