From 9ff47ec1d030217027b2c2c5a961e13b95866308 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 13 Feb 2013 08:54:53 -0700
Subject: [PATCH] Windows: propagate system error text even with format
 commands

For example, error 193 now says "%1 is not a valid Win32 application.",
which is ugly but better than "Unknown error".
---
 src/racket/src/error.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/racket/src/error.c b/src/racket/src/error.c
index ec5145197d..69d6f7fbb2 100644
--- a/src/racket/src/error.c
+++ b/src/racket/src/error.c
@@ -502,7 +502,9 @@ static intptr_t sch_vsprintf(char *s, intptr_t maxlen, const char *msg, va_list
 	      wchar_t mbuf[256];
               int len;
 	      if ((type != 'e') && !es) {
-		if ((len = FormatMessageW(FORMAT_MESSAGE_FROM_SYSTEM, NULL,
+		if ((len = FormatMessageW((FORMAT_MESSAGE_FROM_SYSTEM
+                                           | FORMAT_MESSAGE_IGNORE_INSERTS), 
+                                          NULL,
                                           en, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
                                           mbuf, 255, NULL))) {
 		  int i;