Fixed argument name typo active when SEXP_USE_STATIC_LIBS selected

This commit is contained in:
Chris Walsh 2015-12-17 00:05:00 -05:00
parent 27f17a54f6
commit 8022c7c98d

4
eval.c
View file

@ -1302,11 +1302,11 @@ static sexp sexp_load_dl (sexp ctx, sexp file, sexp env) {
#endif #endif
#if SEXP_USE_DL || SEXP_USE_STATIC_LIBS #if SEXP_USE_DL || SEXP_USE_STATIC_LIBS
static sexp sexp_load_binary(sexp ctx, sexp source, sexp env) { static sexp sexp_load_binary(sexp ctx, sexp file, sexp env) {
#if SEXP_USE_STATIC_LIBS #if SEXP_USE_STATIC_LIBS
struct sexp_library_entry_t *entry; struct sexp_library_entry_t *entry;
#endif #endif
sexp res = sexp_load_dl(ctx, source, env); sexp res = sexp_load_dl(ctx, file, env);
#if SEXP_USE_STATIC_LIBS #if SEXP_USE_STATIC_LIBS
if (res == SEXP_UNDEF || sexp_exceptionp(res)) { if (res == SEXP_UNDEF || sexp_exceptionp(res)) {
entry = sexp_find_static_library(sexp_string_data(file)); entry = sexp_find_static_library(sexp_string_data(file));