From 08f120658d0a637adb951544629974d4a75f2f19 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sat, 6 Aug 2016 18:59:53 -0400
Subject: [PATCH] Added env:all-variables

---
 scheme/cyclone/util.sld | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/scheme/cyclone/util.sld b/scheme/cyclone/util.sld
index d26d2c87..32bea65a 100644
--- a/scheme/cyclone/util.sld
+++ b/scheme/cyclone/util.sld
@@ -24,6 +24,7 @@
     env:frame-variables
     env:frame-values 
     env:add-binding-to-frame! 
+    env:all-variables
     env:extend-environment 
     env:lookup
     env:lookup-variable-value 
@@ -204,6 +205,11 @@
   (set-car! frame (cons var (car frame)))
   (set-cdr! frame (cons val (cdr frame))))
 
+(define (env:all-variables env)
+  (flatten 
+    (env:frame-variables
+      (env:first-frame env))))
+
 (define (env:extend-environment vars vals base-env)
   (if (= (length vars) (length vals))
       (cons (env:make-frame vars vals) base-env)