~ chicken-core (chicken-5) 7b01d7d0b264473708d0a19333d467e247b6ea6e

commit 7b01d7d0b264473708d0a19333d467e247b6ea6e
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Wed Jun 29 16:38:16 2016 +0200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Thu Jun 30 20:38:56 2016 +1200

    Teach C_permanentp about the scratch space.
    
    Signed-off-by: Evan Hanson <evhan@foldling.org>

diff --git a/chicken.h b/chicken.h
index dc8cff02..dbaa92d9 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));
 }