From a68b470e06c4c15d3177231b3b5d27358570355e Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Fri, 15 Nov 2013 22:53:41 +0900
Subject: [PATCH] pic_get_args can parse '*'

---
 src/vm.c | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/src/vm.c b/src/vm.c
index a5cdc33c..331b218b 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -40,12 +40,17 @@ pic_get_args(pic_state *pic, const char *format, ...)
       break;
     case '|':
       break;
+    case '*':
+      break;
     }
 
     /* in order to run out of all arguments passed to this function
        (i.e. do va_arg for each argument), optional argument existence
        check is done in every case closure */
 
+    if (c == '*')
+      break;
+
     switch (c) {
     case '|':
       opt = true;
@@ -240,7 +245,19 @@ pic_get_args(pic_state *pic, const char *format, ...)
       }
     }
   }
-  if (argc > i) {
+  if ('*' == c) {
+    int *n;
+    pic_value **argv;
+
+    n = va_arg(ap, int *);
+    argv = va_arg(ap, pic_value **);
+    if (i <= argc) {
+      *n = argc - i;
+      *argv = &GET_OPERAND(pic, i);
+      i = argc;
+    }
+  }
+  else if (argc > i) {
     pic_error(pic, "wrong number of arguments");
   }
   va_end(ap);