From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 17 Jul 2005 02:12:50 +0000 (+0000)
Subject: Fix some syntax errors only visible on Win32.
X-Git-Tag: 20090517-FFI~1247
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=38f3faeac7076b6932b8eed9799bed3096432392;p=mit-scheme.git

Fix some syntax errors only visible on Win32.
---

diff --git a/v7/src/microcode/utils.c b/v7/src/microcode/utils.c
index 66ad47052..36a352d02 100644
--- a/v7/src/microcode/utils.c
+++ b/v7/src/microcode/utils.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: utils.c,v 9.86 2005/07/04 13:51:10 cph Exp $
+$Id: utils.c,v 9.87 2005/07/17 02:12:50 cph Exp $
 
 Copyright (c) 1987-2002 Massachusetts Institute of Technology
 
@@ -1108,7 +1108,7 @@ DEFUN (C_call_scheme, (proc, nargs, argvec),
   SCHEME_OBJECT primitive, prim_lexpr, * sp, result;
   SCHEME_OBJECT * callers_last_return_code;
 
-#ifdef (COMPILER_PROCESSOR_TYPE == COMPILER_IA32_TYPE)
+#if (COMPILER_PROCESSOR_TYPE == COMPILER_IA32_TYPE)
   extern void * C_Frame_Pointer;
   extern void * C_Stack_Pointer;
   void * cfp = C_Frame_Pointer;
@@ -1155,7 +1155,7 @@ DEFUN (C_call_scheme, (proc, nargs, argvec),
     Registers[REGBLOCK_LEXPR_ACTUALS] = prim_lexpr;
     Registers[REGBLOCK_PRIMITIVE] = primitive;
   }
-#ifdef (COMPILER_PROCESSOR_TYPE == COMPILER_IA32_TYPE)
+#if (COMPILER_PROCESSOR_TYPE == COMPILER_IA32_TYPE)
 #ifdef CL386
   __finally  
 #endif