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

removing unused var (issue #364)

Browse source
This commit is contained in:
Alex Shinn 2016-06-21 05:03:27 +09:00
parent 047f35432b
commit 9abf508800
1 changed files with 0 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gc_heap.c
View file

@ -482,7 +482,6 @@ done:
static void* load_image_fn(sexp ctx, sexp dl, sexp name) { static void* load_image_fn(sexp ctx, sexp dl, sexp name) {
sexp ls; sexp ls;
int len;
void *fn = NULL; void *fn = NULL;
char *file_name, *rel_name=NULL, *new_file_name; char *file_name, *rel_name=NULL, *new_file_name;
char *handle_name = "<static>"; char *handle_name = "<static>";
@ -491,7 +490,6 @@ static void* load_image_fn(sexp ctx, sexp dl, sexp name) {
if (!sexp_dl_handle(dl)) { if (!sexp_dl_handle(dl)) {
/* try exact file, then the search path */ /* try exact file, then the search path */
file_name = sexp_string_data(sexp_dl_file(dl)); file_name = sexp_string_data(sexp_dl_file(dl));
len = sexp_string_size(sexp_dl_file(dl));
sexp_dl_handle(dl) = dlopen(file_name, RTLD_LAZY); sexp_dl_handle(dl) = dlopen(file_name, RTLD_LAZY);
if (!sexp_dl_handle(dl)) { if (!sexp_dl_handle(dl)) {
for (ls = sexp_global(ctx, SEXP_G_MODULE_PATH); sexp_pairp(ls); ls=sexp_cdr(ls)) { for (ls = sexp_global(ctx, SEXP_G_MODULE_PATH); sexp_pairp(ls); ls=sexp_cdr(ls)) {