2ec
@verb #13:"eval_value_to_string" this none this rxdo #55
@program #13:"eval_value_to_string" this none this
"Copied from Generic Programmer (#59):eval_value_to_string by Slacker (#2) May 29 21:49:03 1997"
set_task_perms(caller_perms())
if (typeof(val = args[1]) == $OBJ)
  return tostr("=> ", val, "  ", valid(val) ? "(" + val.name + ")" | ((a = $list_utils:assoc(val, {{#-1, "<$nothing>"}, {#-2, "<$ambiguous_match>"}, {#-3, "<$failed_match>"}})) ? a[2] | "<invalid>"))
elseif (typeof(val) == $ERR)
  return tostr("=> ", $code_utils:error_name(val), "  (", val, ")")
else
  return "=> " + $html_utils:literal_text(toliteral(val))
endif
"Last modified by Dax (#789) on Tue May  3 13:47:06 2005 MDT."
.

0