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

fix #6

This commit is contained in:
Yuichi Nishiwaki 2013-11-29 11:41:45 +09:00
parent 098e9bdb43
commit ab5de1c0c4
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/codegen.c
View File

@ -723,7 +723,10 @@ lift_cv(pic_state *pic, struct pic_irep *irep, int d)
/* pass */ /* pass */
break; break;
case OP_LAMBDA: case OP_LAMBDA:
lift_cv(pic, pic->irep[c.u.i], d + 1); if (pic->irep[c.u.i]->cv_num == 0)
lift_cv(pic, pic->irep[c.u.i], d);
else
lift_cv(pic, pic->irep[c.u.i], d + 1);
break; break;
case OP_CREF: case OP_CREF:
case OP_CSET: case OP_CSET: