Method code for $compiler.do_method()

[Turn on line numbering]

---

arg vars, flags, args;
var m;

if (!(m = (| (flags.to_list())[1][1] |)))
    throw(~parse, "{method} syntax: {method OBJ.METHOD:text}");
if (m[1] != "$")
    m = "$" + m;
m = (> $parse_lib.ref(m) <);
if (m[1] != 'method)
    throw(~parse, "{method} target is not a method reference");
m = substr(tostr(m[2]), 2) + "." + m[4];
return [$format.new_tag("method", [m], args), vars];

---

// Created 17-Jul-1996 as a part of ColdCore, see: @help Credit