{
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)?