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

Clean up unused var warning. Fixes issue #256.

Browse source
This commit is contained in:
Alex Shinn 2015-04-16 08:37:51 +09:00
parent 6d94e9b04c
commit f9c063ebe6
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
sexp.c
View file

@ -1705,7 +1705,7 @@ static sexp* sexp_insert_fileno_ephemeron(sexp ctx, sexp vec, sexp eph) {
} }
static void sexp_insert_fileno(sexp ctx, sexp fileno) { static void sexp_insert_fileno(sexp ctx, sexp fileno) {
sexp *data, *data2, tmp, vec = sexp_global(ctx, SEXP_G_FILE_DESCRIPTORS); sexp *data, tmp, vec = sexp_global(ctx, SEXP_G_FILE_DESCRIPTORS);
sexp_sint_t i, n2, n = sexp_unbox_fixnum(sexp_global(ctx, SEXP_G_NUM_FILE_DESCRIPTORS)); sexp_sint_t i, n2, n = sexp_unbox_fixnum(sexp_global(ctx, SEXP_G_NUM_FILE_DESCRIPTORS));
if (!sexp_vectorp(vec)) { if (!sexp_vectorp(vec)) {
vec = sexp_global(ctx, SEXP_G_FILE_DESCRIPTORS) vec = sexp_global(ctx, SEXP_G_FILE_DESCRIPTORS)
@ -1719,7 +1719,6 @@ static void sexp_insert_fileno(sexp ctx, sexp fileno) {
n2 = n * 2; n2 = n * 2;
tmp = sexp_global(ctx, SEXP_G_FILE_DESCRIPTORS) tmp = sexp_global(ctx, SEXP_G_FILE_DESCRIPTORS)
= sexp_make_vector(ctx, sexp_make_fixnum(n2), SEXP_FALSE); = sexp_make_vector(ctx, sexp_make_fixnum(n2), SEXP_FALSE);
data2 = sexp_vector_data(tmp);
for (i = n = 0; i < sexp_vector_length(vec); i++) for (i = n = 0; i < sexp_vector_length(vec); i++)
if (sexp_ephemeronp(data[i]) && !sexp_brokenp(data[i]) if (sexp_ephemeronp(data[i]) && !sexp_brokenp(data[i])
&& sexp_insert_fileno_ephemeron(ctx, tmp, data[i])) && sexp_insert_fileno_ephemeron(ctx, tmp, data[i]))