#
# $Id: error.icn,v 1.1 2004-02-12 17:07:55 rparlett Exp $
#

package util

class Error(reason)
   method error(a)
      if ::type(a) == "string" then
         reason := a
      else
         reason := a.get_reason()
   end

   method get_reason()
      return reason
   end
end