X-Git-Url: http://git.madism.org/?a=blobdiff_plain;f=tools%2Fcpkg2c.mll;h=2e76dd96f70404680a08662c2f417aa9e4f3617c;hb=2e493cf01fc8eae92379422a36400523bba61dd3;hp=82be124f77b2d8fcd87475c23cb016b95cb48120;hpb=e1f82ec5b248a12c5bfef139f1f27bf4292ee3a0;p=apps%2Fmadmutt.git

diff --git a/tools/cpkg2c.mll b/tools/cpkg2c.mll
index 82be124..2e76dd9 100644
--- 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)?