From db04688faa20f3576257c0fe41752ec435beab9a Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:25 -0800
Subject: Import Upstream version 5c3

---
 rope.c | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'rope.c')

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;
 }
 
-- 
cgit v1.2.3