4.3BSD/usr/contrib/X/CLUlib/x_error.clu
% Copyright Barbara Liskov 1985 x_error = proc (why: string) signal failure(why) end x_error