From 4dd5e5b0d66c6bfa1ef5122ac8b10661786f49de Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sun, 2 Apr 2017 01:21:24 +0900
Subject: [PATCH] add test for the prev bugfix

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

diff --git a/t/issue/pic_call.scm b/t/issue/pic_call.scm
new file mode 100644
index 00000000..9f974b32
--- /dev/null
+++ b/t/issue/pic_call.scm
@@ -0,0 +1,24 @@
+(import (scheme base)
+        (scheme read)
+        (scheme file)
+        (scheme lazy)
+        (scheme write)
+        (srfi 1)
+        (picrin base)
+        (picrin test))
+
+(test-begin)
+
+(define trace '())
+
+(define task-queue (make-parameter '() (lambda (x) (set! trace (cons x trace)) x)))
+
+(define expand
+  (lambda ()
+    (task-queue)))
+
+(define result (expand))
+(test '() result)
+(test '(()) trace)
+
+(test-end)