From 0edbf1f0d2dc9bc5ce6dd2c3ed2a1464131e4136 Mon Sep 17 00:00:00 2001
From: "Sunrim KIM (keen)" <3han5chou7@gmail.com>
Date: Mon, 3 Nov 2014 13:33:57 +0900
Subject: [PATCH] add test for #234

---
 t/issue/234.scm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 t/issue/234.scm

diff --git a/t/issue/234.scm b/t/issue/234.scm
new file mode 100644
index 00000000..b8a1e237
--- /dev/null
+++ b/t/issue/234.scm
@@ -0,0 +1,19 @@
+(import (scheme base)
+        (picrin test))
+
+(test-begin)
+
+(define-syntax fard
+  (syntax-rules ()
+    ((fard a b) (- a b))))
+
+(test -1 (fard 1 2))
+
+(define (fard a b)
+  (+ a b))
+
+(test 3 (fard 1 2))
+
+(test 3 (apply fard (list 1 2)))
+
+(test-end)