From 8374297a221b0cdaac244f4713596dd2106e512a Mon Sep 17 00:00:00 2001
From: Yuito Murase <yuito.murase@gmail.com>
Date: Thu, 26 Jun 2014 17:40:26 +0900
Subject: [PATCH] append returns '() when given no args

---
 src/pair.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/pair.c b/src/pair.c
index 6fe316c1..bb4ef0bb 100644
--- a/src/pair.c
+++ b/src/pair.c
@@ -501,6 +501,10 @@ pic_pair_append(pic_state *pic)
 
   pic_get_args(pic, "*", &argc, &args);
 
+  if (argc == 0) {
+    return pic_nil_value();
+  }
+
   list = args[--argc];
 
   while (argc-- > 0) {