From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 28 Nov 1994 04:37:22 +0000 (+0000)
Subject: Clip out C_call_scheme under OS/2 -- this isn't needed.
X-Git-Tag: 20090517-FFI~6927
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4c06da1e665030e0953c3c450167665fa6bf2d30;p=mit-scheme.git

Clip out C_call_scheme under OS/2 -- this isn't needed.
---

diff --git a/v7/src/microcode/utils.c b/v7/src/microcode/utils.c
index b65a38321..f1159647a 100644
--- a/v7/src/microcode/utils.c
+++ b/v7/src/microcode/utils.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: utils.c,v 9.66 1994/11/14 05:16:32 cph Exp $
+$Id: utils.c,v 9.67 1994/11/28 04:37:22 cph Exp $
 
 Copyright (c) 1987-94 Massachusetts Institute of Technology
 
@@ -1062,6 +1062,8 @@ DEFUN (Translate_To_Point, (Target), SCHEME_OBJECT Target)
   /*NOTREACHED*/
 }
 
+#ifndef _OS2
+
 extern SCHEME_OBJECT EXFUN (Compiler_Get_Fixed_Objects, (void));
 
 SCHEME_OBJECT
@@ -1150,3 +1152,5 @@ DEFUN (C_call_scheme, (proc, nargs, argvec),
 
   return  result;
 }
+
+#endif /* not _OS2 */