From 306a5f53a5cda92864c8ab3f77c9d10aadba4e21 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Mon, 3 Mar 2014 22:44:38 +0900
Subject: [PATCH] string formatter follow srfi-28's spec

---
 src/codegen.c | 2 +-
 src/string.c  | 2 +-
 src/vm.c      | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/codegen.c b/src/codegen.c
index 4f273cf7..078167ec 100644
--- a/src/codegen.c
+++ b/src/codegen.c
@@ -304,7 +304,7 @@ analyze_node(analyze_state *state, pic_value obj, bool tailpos)
     pic_value proc;
 
     if (! pic_list_p(pic, obj)) {
-      pic_errorf(pic, "invalid expression given: ~S", obj);
+      pic_errorf(pic, "invalid expression given: ~s", obj);
     }
 
     proc = pic_list_ref(pic, obj, 0);
diff --git a/src/string.c b/src/string.c
index b7c4d7d1..2c51ac62 100644
--- a/src/string.c
+++ b/src/string.c
@@ -188,7 +188,7 @@ pic_vfformat(pic_state *pic, xFILE *file, const char *fmt, va_list ap)
       case '%':
         xfputc('\n', file);
         break;
-      case 'S':
+      case 's':
         irrs = pic_cons(pic, pic_fdebug(pic, va_arg(ap, pic_value), file), irrs);
         break;
       }
diff --git a/src/vm.c b/src/vm.c
index eef5fa04..c766da91 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -558,7 +558,7 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value argv)
     L_CALL:
       x = pic->sp[-c.u.i];
       if (! pic_proc_p(x)) {
-	pic_errorf(pic, "invalid application: ~S", x);
+	pic_errorf(pic, "invalid application: ~s", x);
       }
       proc = pic_proc_ptr(x);