From 2a3e236469e0b9e676ebb0db1e4ae85cb947a6f9 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 4 Dec 2017 13:18:30 -0500
Subject: [PATCH] Renamed to 'my-when'

---
 tests/when.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tests/when.scm b/tests/when.scm
index 8a8a2089..b41ac5b4 100644
--- a/tests/when.scm
+++ b/tests/when.scm
@@ -1,9 +1,9 @@
 (import (scheme base) (scheme write))
-(define-syntax when
+(define-syntax my-when
   (syntax-rules ()
-    ((when test result1 result2 ...)
+    ((my-when test result1 result2 ...)
      (if test
          (begin result1 result2 ...)))))
 
 (write
-  (when #t 1))
+  (my-when #t 1))