From 26b141beae98dd0afac89b67d0e36f4c59e5a9bc Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 26 Jun 2015 20:59:46 -0400
Subject: [PATCH] Adding exports

---
 scheme/cyclone/transforms.sld | 114 ++++++++++++++++++++++++++++++++++
 scheme/cyclone/util.sld       |   1 +
 transforms.scm                |   6 +-
 3 files changed, 120 insertions(+), 1 deletion(-)

diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index 05c56619..bcde4fdb 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -1,8 +1,122 @@
 (define-library (scheme cyclone transforms)
   (import (scheme base)
           (scheme char)
+          (scheme file)
+          (scheme eval)
+          (scheme read)
+          (scheme write)
+          (scheme cyclone util)
+          (scheme cyclone libraries)
   )
   (export
+    ;*defined-macros* 
+    *do-code-gen*
+    ;*trace-level*
+    ;*primitives*
+    built-in-syms
+    trace
+    trace:error
+    trace:warn
+    trace:info
+    trace:debug
+    cyc:error
+    basename
+    list-index
+    gensym
+    symbol<? 
+    insert
+    remove 
+    union 
+    difference 
+    reduce 
+    azip 
+    assq-remove-key 
+    assq-remove-keys 
+    const? 
+    ref? 
+    quote? 
+    let? 
+    let->bindings 
+    let->exp 
+    let->bound-vars 
+    let->args 
+    letrec? 
+    letrec->bindings 
+    letrec->exp 
+    letrec->bound-vars 
+    letrec->args 
+    lambda? 
+    lambda-varargs? 
+    lambda->formals 
+    lambda-varargs? 
+    lambda-varargs-var 
+    lambda-formals-type 
+    lambda-formals->list 
+    list->lambda-formals 
+    pair->list 
+    list->pair 
+    lambda->exp 
+    if? 
+    if->condition 
+    if->then 
+    if-else? 
+    if->else 
+    app? 
+    app->fun 
+    app->args 
+    prim? 
+    precompute-prim-app? 
+    prim-call? 
+    begin? 
+    begin->exps 
+    define? 
+    define-lambda? 
+    define->lambda 
+    define->var 
+    define->exp 
+    set!? 
+    set!->var 
+    set!->exp 
+    closure? 
+    closure->lam 
+    closure->env 
+    closure->fv 
+    env-make? 
+    env-make->id 
+    env-make->fields 
+    env-make->values 
+    env-get? 
+    env-get->id 
+    env-get->field 
+    env-get->env
+    set-cell!? 
+    set-cell!->cell 
+    set-cell!->value 
+    cell? 
+    cell->value 
+    cell-get? 
+    cell-get->cell 
+    macro? 
+    macro-expand 
+    expand 
+    let=>lambda 
+    letrec=>lets+sets 
+    begin=>let 
+    isolate-globals 
+    has-global? 
+    global-vars 
+    filter-unused-variables 
+    free-vars 
+    clear-mutables
+    mark-mutable
+    is-mutable? 
+    analyze-mutable-variables 
+    wrap-mutables 
+    alpha-convert 
+    cps-convert 
+    pos-in-list 
+    closure-convert 
   )
   (include "../common.scm")
   (include "../../transforms.scm"))
+
diff --git a/scheme/cyclone/util.sld b/scheme/cyclone/util.sld
index eb0ceb14..55a1db21 100644
--- a/scheme/cyclone/util.sld
+++ b/scheme/cyclone/util.sld
@@ -1,6 +1,7 @@
 (define-library (scheme cyclone util)
   (import (scheme base)
           (scheme char))
+  ; TODO: really need export-all for these cyclone libs!!
   (export
     filter
     tagged-list?
diff --git a/transforms.scm b/transforms.scm
index 42615758..627e7c5b 100644
--- a/transforms.scm
+++ b/transforms.scm
@@ -7,7 +7,11 @@
 ;; various utility functions used by the compiler.
 ;;
 
-(load (string-append (cyc:get-lib-dir) "scheme/common.scm"))
+(cond-expand
+ (chicken
+  (load (string-append (cyc:get-lib-dir) "scheme/common.scm")))
+ (else
+  #f))
 
 ;; Built-in macros
 ;; TODO: just a stub, real code would read (define-syntax)