support for object errors

Rev: lib/master.pike.in:1.43
Rev: lib/modules/Tools.pmod/Hilfe.pmod:1.6

lib/master.pike.in

-/* $Id: master.pike.in,v 1.42 1999/03/17 21:44:52 hubbe Exp $
+/* $Id: master.pike.in,v 1.43 1999/03/19 11:14:27 hubbe Exp $
  * 
  * Master-file for Pike.
  *
@@ -1095,7 +1095,8 @@ string describe_backtrace(mixed *trace)
   int e;
   string ret;
 
-  if(arrayp(trace) && sizeof(trace)==2 && stringp(trace[0]))
+  if((arrayp(trace) && sizeof(trace)==2 && stringp(trace[0])) ||
+     (objectp(trace) && trace->is_generic_error))
   {
     ret=trace[0];
     trace=trace[1];

lib/modules/Tools.pmod/Hilfe.pmod

@@ -83,6 +83,11 @@ import Getopt;
 	{
 	  c[1]=c[1][sizeof(backtrace())..];
 	  write(describe_backtrace(c));
+	}
+	else if(objectp(c) && c->is_generic_error)
+	{
+	  c->__backtrace=c->__backtrace[sizeof(backtrace())..];
+	  write(describe_backtrace(c));
 	}else{
 	  write(sprintf("Error in evalutation: %O\n",c));
 	}