FIX: do not allow make a task! if not compiled with INCLUDE_TASK define

Author: Oldes

src/core/c-task.c

@@ -58,7 +58,6 @@
 */
 
 #include "sys-core.h"
-//#define INCLUDE_TASK
 
 #ifdef INCLUDE_TASK
 /***********************************************************************
@@ -99,8 +98,6 @@
 {
 #ifdef INCLUDE_TASK
 	OS_CREATE_THREAD((void*)Launch_Task, task, 50000);
-#else 
-	puts("** Build using INCLUDE_TASK define to experiment with task!");
-	Trap0(RE_FEATURE_NA);
 #endif
 }
+

src/core/t-object.c

@@ -315,6 +315,7 @@ static REBSER *Trim_Object(REBSER *obj)
 
 				// make task! [init]
 				if (type == REB_TASK) {
+#ifdef INCLUDE_TASK
 					// Does it include a spec?
 					VAL_SET(value, REB_TASK);
 					if (IS_BLOCK(VAL_BLK(arg))) {
@@ -328,6 +329,9 @@ static REBSER *Trim_Object(REBSER *obj)
 					}
 					VAL_MOD_FRAME(value) = obj;
 					DS_RET_VALUE(value);
+#else
+					Trap0(RE_FEATURE_NA);
+#endif
 					return R_RET;
 				}
 			}

src/include/sys-core.h

@@ -49,6 +49,7 @@
 #define HAS_SHA1				// allow it
 #define HAS_SHA2				// allow SHA 256/384/512
 #define HAS_MD5					// allow it
+//#define INCLUDE_TASK
 
 // External system includes:
 #include <stdlib.h>

src/tests/units/task-test.r3

@@ -9,9 +9,17 @@ Rebol [
 ~~~start-file~~~ "TASK!"
 
 ===start-group=== "task"
-	--test-- "issues-47"
-	;@@ https://github.com/Oldes/Rebol-issues/issues/47
-	--assert error? try [do make task! [2 / 0]] ; trying to evaluate a task should not crash!
+	if any [
+		not error? test-task: try [make task! []] ; task may be disabled
+		test-task/id <> 'feature-na
+	][
+		--test-- "empty task"
+		--assert task? do test-task
+
+		--test-- "issues-47"
+		;@@ https://github.com/Oldes/Rebol-issues/issues/47
+		--assert  task? do make task! [1 / 0] ; trying to evaluate a task should not crash!
+	]
 
 ===end-group===