@verb #62:"istype" this none this rxdo #60
@program #62:"istype" this none this
":istype(value,types) => whether value is one of the given types"
{value, types} = args
if ((vtype = typeof(value)) in types)
  return 1
elseif (vtype != $LIST)
  return 0
else
  for t in (types)
    if (typeof(t) == $LIST && this:islistof(value, t))
      return 1
    endif
  endfor
endif
return 0
"Last modified by Dax (#789) on Wed May  4 06:46:00 2005 MDT."
.