From e8306cd8dbe04367005c106d4aac0ee790c1a259 Mon Sep 17 00:00:00 2001
From: Peter Bex <address@hidden>
Date: Wed, 29 Jun 2016 16:38:16 +0200
Subject: [PATCH] Teach C_permanentp about the scratch space.

---
 chicken.h | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/chicken.h b/chicken.h
index dc8cff0..dbaa92d 100644
--- a/chicken.h
+++ b/chicken.h
@@ -2246,7 +2246,10 @@ C_mutate2(C_word *slot, C_word val) /* OBSOLETE */
 
 C_inline C_word C_permanentp(C_word x)
 {
-  return C_mk_bool(!C_immediatep(x) && !C_in_stackp(x) && !C_in_heapp(x));
+  return C_mk_bool(!C_immediatep(x) &&
+                   !C_in_stackp(x) &&
+                   !C_in_heapp(x) &&
+                   !C_in_scratchspacep(x));
 }
 
 
-- 
2.1.4