exit_on_string added

Rev: src/threads.c:1.4

src/threads.c

@@ -35,11 +35,12 @@ void *new_thread_func(void * data)
 
   if(SETJMP(back))
   {
-    exit_on_error="Error in handle_error in master object!\nPrevious error:";
+    ONERROR tmp;
+    SET_ONERROR(tmp,exit_on_error,"Error in handle_error in master object!");
     assign_svalue_no_free(sp++, & throw_value);
     APPLY_MASTER("handle_error", 1);
     pop_stack();
-    automatic_fatal=0;
+    UNSET_ONERROR(tmp);
   } else {
     push_array_items(arg.args);
     arg.args=0;