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

do not use '~s' style format specifier with pic_strf_value

This commit is contained in:
Yuichi Nishiwaki 2016-02-23 02:15:37 +09:00
parent c34f24e58c
commit 368fa17de3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extlib/benz/lib.c
View File

@ -77,7 +77,7 @@ pic_find_identifier(pic_state *pic, pic_value id, pic_value env)
pic_value pic_value
pic_add_identifier(pic_state *pic, pic_value id, pic_value env) pic_add_identifier(pic_state *pic, pic_value id, pic_value env)
{ {
const char *name; const char *name, *lib;
pic_value uid, str; pic_value uid, str;
if (search_scope(pic, id, env, &uid)) { if (search_scope(pic, id, env, &uid)) {
@ -87,7 +87,8 @@ pic_add_identifier(pic_state *pic, pic_value id, pic_value env)
name = pic_str(pic, pic_id_name(pic, id)); name = pic_str(pic, pic_id_name(pic, id));
if (pic_env_ptr(pic, env)->up == NULL && pic_sym_p(pic, id)) { /* toplevel & public */ if (pic_env_ptr(pic, env)->up == NULL && pic_sym_p(pic, id)) { /* toplevel & public */
str = pic_strf_value(pic, "~a/%s", pic_obj_value(pic_env_ptr(pic, env)->lib), name); lib = pic_str(pic, pic_obj_value(pic_env_ptr(pic, env)->lib));
str = pic_strf_value(pic, "%s/%s", lib, name);
} else { } else {
str = pic_strf_value(pic, ".%s.%d", name, pic->ucnt++); str = pic_strf_value(pic, ".%s.%d", name, pic->ucnt++);
} }