4.3BSD/usr/contrib/X/CLUlib/x_error.clu

% Copyright    Barbara Liskov    1985

x_error = proc (why: string)
    signal failure(why)
    end x_error