From 0353930feb4d6516d5ae3c56c5a69227a8f894b1 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 4 Dec 2017 13:15:32 -0500
Subject: [PATCH] New test file

---
 tests/when.scm | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 tests/when.scm

diff --git a/tests/when.scm b/tests/when.scm
new file mode 100644
index 00000000..8a8a2089
--- /dev/null
+++ b/tests/when.scm
@@ -0,0 +1,9 @@
+(import (scheme base) (scheme write))
+(define-syntax when
+  (syntax-rules ()
+    ((when test result1 result2 ...)
+     (if test
+         (begin result1 result2 ...)))))
+
+(write
+  (when #t 1))