From e7f47a0882754ef7880c5458e9347d9b7ccbec30 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 21 Nov 2009 04:25:01 +0000
Subject: [PATCH] fix XFORM_SKIP annotation placement that MSVC doesn't like

svn: r16936
---
 src/mzscheme/src/fun.c | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/mzscheme/src/fun.c b/src/mzscheme/src/fun.c
index c47c12e119..5dfc190be8 100644
--- a/src/mzscheme/src/fun.c
+++ b/src/mzscheme/src/fun.c
@@ -7971,10 +7971,12 @@ long scheme_get_milliseconds(void)
 #endif
 }
 
+#ifdef MZ_XFORM
+START_XFORM_SKIP;
+#endif
 double scheme_get_inexact_milliseconds(void)
 /* this function can be called from any OS thread */
 {
-  START_XFORM_SKIP;
 #ifdef USE_MACTIME
   {
     UnsignedWide time;
@@ -7999,8 +8001,11 @@ double scheme_get_inexact_milliseconds(void)
 #  endif
 # endif
 #endif
-  END_XFORM_SKIP;
 }
+#ifdef MZ_XFORM
+END_XFORM_SKIP;
+#endif
+
 
 long scheme_get_process_milliseconds(void)
 {