FEAT: allow insert on object!

related to: Oldes/Rebol-issues#789

Author: Oldes

src/core/t-object.c

@@ -432,6 +432,7 @@ static REBSER *Trim_Object(REBSER *obj)
 		Trap_Make(type, arg);
 
 	case A_APPEND:
+	case A_INSERT:
 		TRAP_PROTECT(VAL_SERIES(value));
 		if (IS_OBJECT(value)) {
 			Append_Obj(VAL_OBJ_FRAME(value), arg);

src/tests/units/object-test.r3

@@ -44,6 +44,11 @@ Rebol [
 		obj: object []
 		--assert 1 = extend obj 'a 1
 		--assert 1 = obj/a
+	;@@ https://github.com/Oldes/Rebol-issues/issues/789
+		--assert 2 = append obj 'b 2
+		--assert 2 = obj/b
+		--assert 3 = insert obj 'c 3
+		--assert 3 = obj/c
 	--test-- "extend object with hidden value"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/1140
 		obj: object [a: 1 protect/hide 'a]