Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

pre-setting all values to void on reserve

Browse source
This commit is contained in:
Alex Shinn 2011-11-27 21:12:56 +09:00
parent 6ec7cbf766
commit 8345f7d74c
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
vm.c
View file

@ -1085,7 +1085,8 @@ sexp sexp_apply (sexp ctx, sexp proc, sexp args) {
#if SEXP_USE_RESERVE_OPCODE #if SEXP_USE_RESERVE_OPCODE
case SEXP_OP_RESERVE: case SEXP_OP_RESERVE:
_ALIGN_IP(); _ALIGN_IP();
top += _SWORD0; for (i=_SWORD0; i > 0; i--)
stack[top++] = SEXP_VOID;
ip += sizeof(sexp); ip += sizeof(sexp);
break; break;
#endif #endif