FIX: make event! using existing event! as a make type

resolves: Oldes/Rebol-issues#2484

Author: Oldes

src/core/t-event.c

@@ -379,10 +379,8 @@
 	value = D_ARG(1);
 	arg = D_ARG(2);
 
-	if (action == A_MAKE) {
-		// Clone an existing event?
-		if (IS_EVENT(value)) return R_ARG1;
-		else if (IS_DATATYPE(value)) {
+	if (action == A_MAKE || action == A_TO) {
+		if (IS_EVENT(value) || IS_DATATYPE(value)) {
 			if (IS_EVENT(arg)) return R_ARG2;
 			//Trap_Make(REB_EVENT, value);
 			VAL_SET(D_RET, REB_EVENT);
@@ -392,7 +390,7 @@
 is_arg_error:
 			Trap_Types(RE_EXPECT_VAL, REB_EVENT, VAL_TYPE(arg));
 
-		// Initialize GOB from block:
+		// Initialize event from block:
 		if (IS_BLOCK(arg)) Set_Event_Vars(D_RET, VAL_BLK_DATA(arg));
 		else goto is_arg_error;
 	}

src/tests/units/event-test.r3

@@ -14,6 +14,8 @@ Rebol [
 	;@@ https://github.com/Oldes/Rebol-issues/issues/132
 	--assert  event? e: make event! [type: 'connect]
 	--assert  'connect = e/type
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2484
+	--assert all [event? e2: make e [offset: 0x0] e2/offset = 0x0]
 
 --test-- "event! offset out of range"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/1635