Removing mingw cast warnings.

This commit is contained in:
Alex Shinn 2011-11-07 23:42:32 +09:00
parent 7a5dd6351c
commit fb6f53f8bd

2
eval.c
View file

@ -1080,7 +1080,7 @@ static sexp sexp_load_dl (sexp ctx, sexp file, sexp env) {
FreeLibrary(handle); FreeLibrary(handle);
return sexp_compile_error(ctx, "dynamic library has no sexp_init_library", file); return sexp_compile_error(ctx, "dynamic library has no sexp_init_library", file);
} }
return init(ctx, NULL, 3, env, sexp_version, SEXP_ABI_IDENTIFIER); return init(ctx, NULL, 3, env, (sexp)sexp_version, (sexp)SEXP_ABI_IDENTIFIER);
} }
#else #else
static sexp sexp_make_dl (sexp ctx, sexp file, void* handle) { static sexp sexp_make_dl (sexp ctx, sexp file, void* handle) {