CHANGE: appending a word into an object sets its value to unset…

… instead of `none` related to: Oldes/Rebol-issues#708
Oldes · Sep 23, 2021 · 093728a · 093728a
1 parent ad28197
commit 093728a
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/core/t-object.c b/src/core/t-object.c
@@ -84,7 +84,7 @@ static void Append_Obj(REBSER *obj, REBVAL *arg)
 				Trap0(RE_SELF_PROTECTED);
 			Expand_Frame(obj, 1, 1); // copy word table also
 			val = Append_Frame(obj, 0, VAL_WORD_SYM(arg));
-			SET_NONE(val);
+			SET_UNSET(val);
 		}
 		return;
 	}
@@ -150,7 +150,7 @@ static void Append_Obj(REBSER *obj, REBVAL *arg)
 			Trap0(RE_HIDDEN);
 		}
 
-		if (IS_END(word + 1)) SET_NONE(val);
+		if (IS_END(word + 1)) SET_UNSET(val);
 		else *val = word[1];
 
 		if (IS_END(word + 1)) break; // fix bug#708

diff --git a/src/tests/units/object-test.r3 b/src/tests/units/object-test.r3
@@ -246,9 +246,9 @@ Rebol [
 	--test-- "issue-708"
 		o: object []
 		append o 'x
-		--assert none? o/x
+		--assert unset? o/x
 		append o [y]
-		--assert none? o/y
+		--assert unset? o/y
 		--assert object? append o [x: 1 y: 2]
 		--assert o/x = 1
 		--assert o/y = 2