rts: Claim AP_STACK before adjusting Sp
[ghc.git] / rts / RtsAPI.c
index 2ca5dc4..533c0c4 100644 (file)
@@ -555,7 +555,7 @@ rts_checkSchedStatus (char* site, Capability *cap)
         stg_exit(EXIT_FAILURE);
     case Interrupted:
         errorBelch("%s: interrupted", site);
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
         // The RTS is shutting down, and the process will probably
         // soon exit.  We don't want to preempt the shutdown
         // by exiting the whole process here, so we just terminate the