FIX: crash when used bind on recursive data

resolves: Oldes/Rebol-issues#2278
Oldes · Apr 17, 2024 · ddad4bb · ddad4bb
1 parent cfe4ffc
commit ddad4bb
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/src/core/c-frame.c b/src/core/c-frame.c
@@ -815,6 +815,8 @@
 	REBCNT n;
 	REBFLG selfish = !IS_SELFLESS(frame);
 
+	CHECK_STACK(&n);
+
 	for (; NOT_END(value); value++) {
 		if (ANY_WORD(value)) {
 			//Print("Word: %s", Get_Sym_Name(VAL_WORD_CANON(value)));

diff --git a/src/tests/units/crash-test.r3 b/src/tests/units/crash-test.r3
@@ -232,6 +232,13 @@ foreach [n s] system/schemes [
 	;@@ https://github.com/Oldes/Rebol-issues/issues/767
 	--assert same? :greater? copy :greater? ;-no crash
 
+--test-- "recursive bind"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2278
+	obj: make object! [x: 10]
+	blk: copy [x]
+	append/only blk blk
+	--assert all [error? e: try [bind block obj] e/id = 'stack-overflow]
+
 ===end-group===
 
 ~~~end-file~~~