add test for #234

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)