From 19dc018d351d23e564bb43f8cfb4d24fed2acc48 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Mon, 22 Nov 2010 21:58:24 -0800
Subject: [PATCH] fixing uninitialized variable bug
---
eval.c | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/eval.c b/eval.c
index e3e37d57..d8b9a7f7 100644
--- a/eval.c
+++ b/eval.c
@@ -1435,9 +1435,9 @@ sexp sexp_define_foreign_aux (sexp ctx, sexp env, const char *name, int num_args
return res;
}
-sexp sexp_define_foreign_param (sexp ctx, sexp env, const char *name, int num_args,
- sexp_proc1 f, const char *param) {
- sexp res;
+sexp sexp_define_foreign_param (sexp ctx, sexp env, const char *name,
+ int num_args, sexp_proc1 f, const char *param) {
+ sexp res = SEXP_FALSE;
sexp_gc_var1(tmp);
sexp_gc_preserve1(ctx, tmp);
tmp = sexp_intern(ctx, param, -1);