From fb6f53f8bd0e3f7c7a71daa96ac25e542e6ea2c0 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Mon, 7 Nov 2011 23:42:32 +0900
Subject: [PATCH] Removing mingw cast warnings.
---
eval.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/eval.c b/eval.c
index 3993a861..0d73ee90 100644
--- a/eval.c
+++ b/eval.c
@@ -1080,7 +1080,7 @@ static sexp sexp_load_dl (sexp ctx, sexp file, sexp env) {
FreeLibrary(handle);
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
static sexp sexp_make_dl (sexp ctx, sexp file, void* handle) {