From b96813bb689e388904d979159bd2e9cc209934fa Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 8 Dec 2017 12:58:56 -0500
Subject: [PATCH] WIP

---
 CHANGELOG.md   |  7 ++++++-
 tests/when.scm | 24 ++++++++++++------------
 2 files changed, 18 insertions(+), 13 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 13c54106..58752e93 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -4,7 +4,12 @@
 
 Features
 
-- WIP: let-syntax
+- Added `let-syntax` to the compiler and interpreter.
+- Allow `eval` to recognize `syntax-rules` macros.
+
+Internal Changes
+
+- Relocated all macro expansion code to the `(scheme eval)` module. `(scheme cyclone macros)` is now obsolete.
 
 ## 0.7 - November 17, 2017
 
diff --git a/tests/when.scm b/tests/when.scm
index 40f7d1c7..8d044155 100644
--- a/tests/when.scm
+++ b/tests/when.scm
@@ -85,18 +85,18 @@
          b))))
     (second 33 44 55)))
 
-
-;  (my-when2 
-;    't 
-;    1 
-;    (let-syntax 
-;      ((my-when3
-;        (syntax-rules ()
-;          ((my-when3 test result1 result2 ...)
-;           (list result2 ...)))))
-;      (my-when3 33 44 55))
-;    2
-;    3))
+(write
+  (my-when2 
+    't 
+    1 
+    (let-syntax 
+      ((my-when3
+        (syntax-rules ()
+          ((my-when3 test result1 result2 ...)
+           (list result2 ...)))))
+      (my-when3 33 44 55))
+    2
+    3))
 ;(write
 ;  (my-when2 '(my-when2 't 1 2 3) (lambda (a) a) (lambda X #f)))
 ;(write