Method code for $sys.clear_definer_vars()

[Turn on line numbering]

---

arg definer, objs;
var code, v, a, meth, errs, d;

code = [];
for v in (definer.variables())
    code += ["(| clear_var('" + v + ") |);"];
meth = tosym("_root_tmp_" + time());
if (!definer.add_method(code, meth, 1)) {
    for d in (objs) {
        pause();
        (| d.(meth)() |);
    }
    (| definer.del_method(meth) |);
}

// $#Edited: 28 Aug 97 21:03 $brian

---

["// Created 26-Mar-1995 as a part of ColdCore, see: @help Credit"]