From 6fbfd15011259be2b0951ad28c9308cbe05b090c Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Tue, 4 Mar 2014 00:32:55 +0900
Subject: [PATCH] formatter support display syntax (~a)

---
 src/string.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/string.c b/src/string.c
index 2c51ac62..a9d7891e 100644
--- a/src/string.c
+++ b/src/string.c
@@ -188,8 +188,11 @@ pic_vfformat(pic_state *pic, xFILE *file, const char *fmt, va_list ap)
       case '%':
         xfputc('\n', file);
         break;
+      case 'a':
+        irrs = pic_cons(pic, pic_fdisplay(pic, va_arg(ap, pic_value), file), irrs);
+        break;
       case 's':
-        irrs = pic_cons(pic, pic_fdebug(pic, va_arg(ap, pic_value), file), irrs);
+        irrs = pic_cons(pic, pic_fwrite(pic, va_arg(ap, pic_value), file), irrs);
         break;
       }
       break;