mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 05:21:20 -08:00
Code Issues Projects Releases Packages Wiki Activity

dpp: always set zero-th variable with values

Browse source
This commit is contained in:
Daniel Kochmański 2017-02-19 11:10:30 +01:00
parent ef65a8b1ac
commit 91c45d09cd
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/dpp.c
View file

@ -813,7 +813,7 @@ put_return(void)
}
put_tabs(t);
fprintf(out, "the_env->nvalues = %d;\n", nres);
for (i = nres-1; i > 0; i--) {
for (i = nres-1; i >= 0; i--) {
put_tabs(t);
fprintf(out, "the_env->values[%d] = __value%d;\n", i, i);
}