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 size_t
pic_receive(pic_state *pic, size_t n, pic_value *argv) pic_receive(pic_state *pic, size_t n, pic_value *argv)
{ {
pic_callinfo *ci;
size_t i; size_t i;
/* take info from already discarded frame */
ci = pic->ci + 1;
for (i = 0; ; ++i) { for (i = 0; ; ++i) {
if (pic_undef_p(pic->ci->fp[i])) if (pic_undef_p(ci->fp[i]))
break; break;
if (i < n) { if (i < n) {
argv[i] = pic->ci->fp[i]; argv[i] = ci->fp[i];
} }
} }
return i; return i;