FIX: prevent crash when task with error is evaluated

This fix should be enhanced as now the error is not reported. It just prevents the crash.
Actually there is no way how to provide result of any task back to caller implemented yet.

Related to: Oldes/Rebol-issues#47

Author: Oldes

src/core/c-task.c

@@ -58,6 +58,8 @@
 */
 
 #include "sys-core.h"
+#include "sys-state.h"
+//#define INCLUDE_TASK
 
 #ifdef INCLUDE_TASK
 /***********************************************************************
@@ -66,15 +68,26 @@
 /*
 ***********************************************************************/
 {
+	REBOL_STATE state;
 	REBSER *body;
 
 	Debug_Str("Begin Task");
 
 	Init_Task();
 	body = Clone_Block(VAL_MOD_BODY(task));
 	OS_TASK_READY(0);
+	
+	PUSH_STATE(state, Saved_State);
+	if (SET_JUMP(state)) {
+		POP_STATE(state, Saved_State);
+		Catch_Error(DS_NEXT); // Stores error value here
+		Debug_Str("End Task -> error!");
+		return;
+	}
+	SET_STATE(state, Saved_State);
 	Do_Blk(body, 0);
 
+	POP_STATE(state, Saved_State);
 	Debug_Str("End Task");
 }
 #endif

src/core/t-object.c

@@ -316,6 +316,7 @@ static REBSER *Trim_Object(REBSER *obj)
 				// make task! [init]
 				if (type == REB_TASK) {
 					// Does it include a spec?
+					VAL_SET(value, REB_TASK);
 					if (IS_BLOCK(VAL_BLK(arg))) {
 						arg = VAL_BLK(arg);
 						if (!IS_BLOCK(arg+1)) Trap_Make(REB_TASK, value);
@@ -325,7 +326,9 @@ static REBSER *Trim_Object(REBSER *obj)
 						obj = Make_Module_Spec(0);
 						VAL_MOD_BODY(value) = VAL_SERIES(arg);
 					}
-					break; // returns obj
+					VAL_MOD_FRAME(value) = obj;
+					DS_RET_VALUE(value);
+					return R_RET;
 				}
 			}