FEAT: accept any-word as an object key

Oldes · Feb 13, 2025 · a3417e9 · a3417e9
1 parent 4799f5e
commit a3417e9
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 2 deletions.
diff --git a/src/core/t-object.c b/src/core/t-object.c
@@ -275,7 +275,7 @@ static REBSER *Trim_Object(REBSER *obj)
 		return PE_NONE; // Error objects may not have a frame.
 	}
 
-	if (IS_WORD(pvs->select)) {
+	if (ANY_WORD(pvs->select)) {
 		n = Find_Word_Index(VAL_OBJ_FRAME(pvs->value), VAL_WORD_SYM(pvs->select), FALSE);
 	}
 	if (n == 0)

diff --git a/src/tests/units/object-test.r3 b/src/tests/units/object-test.r3
@@ -52,7 +52,19 @@ Rebol [
 		--assert 3 = obj/b
 		--assert unset? put obj 'b #(unset)
 		--assert unset? obj/b
-
+
+	--test-- "any-word as an object's key"
+		obj: object []
+		--assert 1 = try [put obj quote 'a 1]
+		--assert 2 = try [put obj quote :b 2]
+		--assert 3 = try [put obj quote c: 3]
+		--assert 4 = try [put obj quote #d 4]
+		--assert [a: 1 b: 2 c: 3 d: 4] == body-of obj
+		foreach [k v] ['a 1 :b 2 c: 3 #d 4] [
+			--assert not error? try [obj/:k: v * 10]
+		]
+		--assert [a: 10 b: 20 c: 30 d: 40] == body-of obj
+
 	--test-- "compare extended objects"
 		;@@ https://github.com/Oldes/Rebol-issues/issues/2507
 		--assert equal? #(object! [a: 1]) #(object! [a: 1])