From 370af953c7daf5cc397925e8cd3b825ac7a10968 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 6 Jul 2015 22:28:34 -0400
Subject: [PATCH] Attempting to fix issues with Cyc_procedure

---
 cgen.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/cgen.scm b/cgen.scm
index 2051cbaf..f57c9b8c 100644
--- a/cgen.scm
+++ b/cgen.scm
@@ -811,12 +811,17 @@
 
 (define *symbols* '())
 
+(cond-expand
+  (chicken
+    (define (Cyc-reserved-symbol? sym) (member sym (list 'Cyc_procedure))))
+  (else #f))
+
 (define (allocate-symbol sym)
   ; These are (at least for now) preallocated by the runtime
-  (define *reserved-symbols* (list 'Cyc_procedure))
+  ;(define *reserved-symbols* (list 'Cyc_procedure))
 
   (if (and (not (member sym *symbols*))
-           (not (member sym *reserved-symbols*)))
+           (not (Cyc-reserved-symbol? sym)))
       (set! *symbols* (cons sym *symbols*))))
 
 ;; Lambda compilation.