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~~~