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

fix pic_receive

This commit is contained in:
Yuichi Nishiwaki 2014-02-02 14:23:58 +09:00
parent 116a65cdee
commit 778ee89dfe
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/cont.c
View File

@ -221,13 +221,17 @@ pic_values_by_list(pic_state *pic, pic_value list)
size_t
pic_receive(pic_state *pic, size_t n, pic_value *argv)
{
pic_callinfo *ci;
size_t i;
/* take info from already discarded frame */
ci = pic->ci + 1;
for (i = 0; ; ++i) {
if (pic_undef_p(pic->ci->fp[i]))
if (pic_undef_p(ci->fp[i]))
break;
if (i < n) {
argv[i] = pic->ci->fp[i];
argv[i] = ci->fp[i];
}
}
return i;