From 8e4e226bd36591d520f017936a1fcb8424ae338f Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Thu, 9 Jan 2014 16:33:38 +0900
Subject: [PATCH] pic_get_args supports symbol

---
 src/vm.c | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/src/vm.c b/src/vm.c
index 5323c674..c106e3bc 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -186,6 +186,23 @@ pic_get_args(pic_state *pic, const char *format, ...)
 	}
       }
       break;
+    case 'm':
+      {
+	pic_sym *m;
+	pic_value v;
+
+	m = va_arg(ap, pic_sym *);
+	if (i < argc) {
+	  v = GET_OPERAND(pic,i);
+	  if (pic_symbol_p(v)) {
+	    *m = pic_sym(v);
+	  }
+	  else {
+	    pic_error(pic, "pic_get_args: expected vector");
+	  }
+	  i++;
+	}
+      }
     case 'v':
       {
 	struct pic_vector **vec;