cs: repairs for Windows build

racket/src/cs/c/main.c

@@ -20,6 +20,8 @@ static int scheme_utf8_encode(unsigned int *path, int zero_offset, int len,
 # define RACKET_IS_GUI 0
 #endif
 
+#define XFORM_SKIP_PROC /* empty */
+
 #include "../../start/config.inc"
 
 char *boot_file_data = "BooT FilE OffsetS:xxxxyyyyyzzzz";

racket/src/worksp/cs/Makefile

@@ -3,7 +3,7 @@ INCS = /I.. /I..\..\rktio /I..\librktio /I$(SCHEME_DIR)\$(MACHINE)\boot\$(MACHIN
 
 RKTIO_LIB = ..\..\build\librktio.lib
 BASE_WIN32_LIBS = WS2_32.lib Shell32.lib User32.lib
-WIN32_LIBS = $(BASE_WIN32_LIBS) RpCrt4.lib Ole32.lib
+WIN32_LIBS = $(BASE_WIN32_LIBS) RpCrt4.lib Ole32.lib Advapi32.lib
 
 LIBS = $(RKTIO_LIB) \
        $(SCHEME_DIR)\$(MACHINE)\boot\$(MACHINE)\$(SCHEME_LIB) \

racket/src/worksp/csbuild.rkt

@@ -148,9 +148,15 @@
 
 ;; ----------------------------------------
 
+(system*! scheme
+	  "--script"
+	  "../cs/c/convert-to-boot.ss"
+	  "../build/racket.so"
+	  "../build/racket.boot")
+
 (system*! (find-exe)
 	  "../cs/c/embed-boot.rkt"
 	  "../build/raw_racketcs.exe"
 	  "../../RacketCS.exe"
 	  (build-path scheme-dir machine "boot" machine)
-	  "../build/racket.so")
+	  "../build/racket.boot")