Import Upstream version 5c3upstream/5c3

1 files changed, 3 insertions, 0 deletions

diff --git a/rope.c b/rope.c
index 94b6631..25e90bb 100644
--- a/rope.c
+++ b/rope.c
@@ -356,6 +356,9 @@ int scm_cell_p(x)
 		    && PTR_GT(hplims[--j], ptr)) continue;
 		return !0; /* NFREEP(x) */
 	} while(i<j);
+	if (PTR_LE(scm_ecache, ptr)
+	    && PTR_GT(scm_ecache+scm_ecache_len, ptr))
+	  return !0; /* so we can print environments while debugging */
 	return 0;
 }