conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

string formatter follow srfi-28's spec

This commit is contained in:
Yuichi Nishiwaki 2014-03-03 22:44:38 +09:00
parent a9d3d847af
commit 306a5f53a5
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/codegen.c
View File

@ -304,7 +304,7 @@ analyze_node(analyze_state *state, pic_value obj, bool tailpos)
pic_value proc; pic_value proc;
if (! pic_list_p(pic, obj)) { 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); proc = pic_list_ref(pic, obj, 0);

2
src/string.c
View File

@ -188,7 +188,7 @@ pic_vfformat(pic_state *pic, xFILE *file, const char *fmt, va_list ap)
case '%': case '%':
xfputc('\n', file); xfputc('\n', file);
break; break;
case 'S': case 's':
irrs = pic_cons(pic, pic_fdebug(pic, va_arg(ap, pic_value), file), irrs); irrs = pic_cons(pic, pic_fdebug(pic, va_arg(ap, pic_value), file), irrs);
break; break;
} }

2
src/vm.c
View File

@ -558,7 +558,7 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value argv)
L_CALL: L_CALL:
x = pic->sp[-c.u.i]; x = pic->sp[-c.u.i];
if (! pic_proc_p(x)) { if (! pic_proc_p(x)) {
pic_errorf(pic, "invalid application: ~S", x); pic_errorf(pic, "invalid application: ~s", x);
} }
proc = pic_proc_ptr(x); proc = pic_proc_ptr(x);