From 4f96f6fe624b9160e2d2da74df0b5d44641263e7 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 16 Jun 2014 10:23:16 +0100
Subject: [PATCH] Windows: `long double` fix for MSVC 2013

---
 racket/src/racket/src/number.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/racket/src/number.c b/racket/src/racket/src/number.c
index 21ca40ce84..cdeef1ead1 100644
--- a/racket/src/racket/src/number.c
+++ b/racket/src/racket/src/number.c
@@ -428,7 +428,7 @@ scheme_init_number (Scheme_Env *env)
 
 #ifdef MZ_LONG_DOUBLE
   scheme_long_floating_point_zero = get_long_double_zero();
-#if defined(HUGE_VALL) && !defined(USE_DIVIDE_MAKE_INFINITY)
+#if defined(HUGE_VALL) && !defined(USE_DIVIDE_MAKE_INFINITY) && !defined(MZ_LONG_DOUBLE_API_IS_EXTERNAL)
   scheme_long_infinity_val = HUGE_VALL;
 #else
 #ifndef USE_LONG_INFINITY_FUNC