Method code for $mutex._test_lock()

[Turn on line numbering]

---

arg tid, val;
var i;

if ((| locks[val][1] != tid |)) {
    queues = queues.add(val, (| queues[val] + [tid] |) || [tid]);
    return 0;
}
return 1;

---

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