From 7b1092e27a12143db2921ce79cecbad09421ae88 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 29 Jun 2015 21:16:43 -0400
Subject: [PATCH] Fixes for self-hosting

---
 transforms.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/transforms.scm b/transforms.scm
index 8f874670..1ead30c5 100644
--- a/transforms.scm
+++ b/transforms.scm
@@ -10,6 +10,9 @@
 (cond-expand
  (chicken
   (load (string-append (cyc:get-lib-dir) "scheme/common.scm")))
+ (cyclone
+  ;; Temporary work-around for pp not being implemented yet
+  (define pretty-print write))
  (else
   #f))
 
@@ -216,8 +219,11 @@
           #f
           (if (eq? sym (car S))
               #t
-              (member sym (cdr S)))))
+              (member sym (cdr S))))))
+  (else #f))
 
+(cond-expand
+  (cyclone
     ; void : -> void
     (define (void) (if #f #t)))
   (else #f))