FIX: word binding inside maps when construction syntax is used

resolves: Oldes/Rebol-issues#2593
Oldes · Apr 2, 2024 · 583866b · 583866b
1 parent 9a90e20
commit 583866b
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/src/core/c-frame.c b/src/core/c-frame.c
@@ -838,7 +838,7 @@
 				}
 			}
 		}
-		else if (ANY_BLOCK(value) && (mode & BIND_DEEP))
+		else if ((ANY_BLOCK(value) || IS_MAP(value)) && (mode & BIND_DEEP))
 			Bind_Block_Words(frame, VAL_BLK_DATA(value), mode);
 		else if ((IS_FUNCTION(value) || IS_CLOSURE(value)) && (mode & BIND_FUNC))
 			Bind_Block_Words(frame, BLK_HEAD(VAL_FUNC_BODY(value)), mode);

diff --git a/src/tests/units/map-test.r3 b/src/tests/units/map-test.r3
@@ -28,6 +28,14 @@ Rebol [
 		--assert 2 = m/b
 		--assert empty? #[]
 
+	--test-- "word binding inside maps"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2593
+		a: 1
+		m1: make map! [k a]
+		m2: #[k a]
+		--assert 1 = try [get m1/k]
+		--assert 1 = try [get m2/k]
+
 	--test-- "case sensitivity"
 		;@@ https://github.com/Oldes/Rebol-issues/issues/1153
 		m: #[