forgot to initialize variable in sqrt

This commit is contained in:
Alex Shinn 2011-08-01 09:07:22 +09:00
parent 7a04cf809d
commit e79ce582ce

2
eval.c
View file

@ -1177,7 +1177,7 @@ define_math_op(sexp_floor, floor)
define_math_op(sexp_ceiling, ceil) define_math_op(sexp_ceiling, ceil)
static sexp sexp_sqrt (sexp ctx sexp_api_params(self, n), sexp z) { static sexp sexp_sqrt (sexp ctx sexp_api_params(self, n), sexp z) {
int negativep; int negativep = 0;
double d, r; double d, r;
sexp_gc_var1(res); sexp_gc_var1(res);
if (sexp_flonump(z)) if (sexp_flonump(z))