From f5d60050a5fd48cc2a0f2159b54cf2dec1797974 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sat, 20 Jul 2013 02:02:21 +0000
Subject: [PATCH] Fixing bug in sexp_read_float_tail when compiled with Boehm
 GC, where an uninitialized value could be read. Fixes issue #184.

---
 sexp.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/sexp.c b/sexp.c
index 25e60191..0b10a3ac 100644
--- a/sexp.c
+++ b/sexp.c
@@ -2340,6 +2340,7 @@ sexp sexp_read_float_tail (sexp ctx, sexp in, double whole, int negp) {
   sexp exponent=SEXP_VOID;
   double val=0.0, scale=0.1, e=0.0;
   sexp_gc_var1(res);
+  res = SEXP_VOID;    /* for Boehm */
   sexp_gc_preserve1(ctx, res);
   for (c=sexp_read_char(ctx, in); sexp_isdigit(c);
        c=sexp_read_char(ctx, in), scale*=0.1)