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

restore sexp_make_ephemeron even when not unifying filenos

Browse source
This commit is contained in:
Alex Shinn 2021-04-27 19:11:36 +09:00
parent 4d22949f71
commit bf03c1cfa1
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
sexp.c
View file

@ -1806,7 +1806,7 @@ sexp sexp_open_output_file_descriptor (sexp ctx, sexp self, sexp_sint_t n, sexp
return res; return res;
} }
#if SEXP_USE_UNIFY_FILENOS_BY_NUMBER #if SEXP_USE_WEAK_REFERENCES
sexp sexp_make_ephemeron_op(sexp ctx, sexp self, sexp_sint_t n, sexp key, sexp value) { sexp sexp_make_ephemeron_op(sexp ctx, sexp self, sexp_sint_t n, sexp key, sexp value) {
sexp res = sexp_alloc_type(ctx, pair, SEXP_EPHEMERON); sexp res = sexp_alloc_type(ctx, pair, SEXP_EPHEMERON);
if (!sexp_exceptionp(res)) { if (!sexp_exceptionp(res)) {
@ -1816,7 +1816,9 @@ sexp sexp_make_ephemeron_op(sexp ctx, sexp self, sexp_sint_t n, sexp key, sexp v
} }
return res; return res;
} }
#endif /* SEXP_USE_WEAK_REFERENCES */
#if SEXP_USE_UNIFY_FILENOS_BY_NUMBER
static sexp* sexp_fileno_cell(sexp ctx, sexp vec, int fd) { static sexp* sexp_fileno_cell(sexp ctx, sexp vec, int fd) {
sexp *data; sexp *data;
sexp_sint_t i, cell, len; sexp_sint_t i, cell, len;