From 927856ec55e62bf68f5841f8d2f727bd1334e532 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 14 Sep 2018 18:00:19 -0400
Subject: [PATCH] Export convenience functions

---
 scheme/cyclone/cps-optimizations.sld | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index 5012fc9c..6e3e9784 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -71,6 +71,7 @@
       adbv:set-direct-rec-call!
       adbv:self-rec-call? 
       adbv:set-self-rec-call!
+      with-var
       ;; Analyze functions
       adb:make-fnc
       %adb:make-fnc
@@ -79,6 +80,7 @@
       adbf:unused-params adbf:set-unused-params!
       adbf:side-effects adbf:set-side-effects!
       adbf:well-known adbf:set-well-known!
+      with-fnc
   )
   (begin
     ;; The following two defines allow non-CPS functions to still be considered