Method code for $world_time.parse_unit()

[Turn off line numbering]

---

  1: arg unit, @units;
  2: var i;
  3: 
  4: [(units ?= time_units)] = units;
  5: i = find i in [1 .. units.length()] where (unit in units[i].subrange(2));
  6: if (i)
  7:     return i;
  8: throw(~invarg, "Invalid time unit '" + unit + "', no descriptor?");

---

["// Created 19-Nov-1996 as a part of ColdCore, see: @help Credit"]