Method code for $sys.clear_definer_vars()

[Turn off line numbering]

---

  1: arg definer, objs;
  2: var code, v, a, meth, errs, d;
  3: 
  4: code = [];
  5: for v in (definer.variables())
  6:     code += ["(| clear_var('" + v + ") |);"];
  7: meth = tosym("_root_tmp_" + time());
  8: if (!definer.add_method(code, meth, 1)) {
  9:     for d in (objs) {
 10:         pause();
 11:         (| d.(meth)() |);
 12:     }
 13:     (| definer.del_method(meth) |);
 14: }
 15: 
 16: // $#Edited: 28 Aug 97 21:03 $brian

---

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