From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Mar 1992 20:32:53 +0000 (+0000)
Subject: Fix declarations to match `OS_make_subprocess'.
X-Git-Tag: 20090517-FFI~9548
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a2ad30241ddaf5b2f28c181df803ecf4995e74eb;p=mit-scheme.git

Fix declarations to match `OS_make_subprocess'.
---

diff --git a/v7/src/microcode/prosproc.c b/v7/src/microcode/prosproc.c
index f5a2e8f90..a77574dfb 100644
--- a/v7/src/microcode/prosproc.c
+++ b/v7/src/microcode/prosproc.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosproc.c,v 1.11 1992/02/11 23:01:37 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosproc.c,v 1.12 1992/03/27 20:32:53 cph Exp $
 
 Copyright (c) 1990-92 Massachusetts Institute of Technology
 
@@ -96,10 +96,10 @@ Seventh arg STDERR is the error channel for the subprocess.\n\
   {
     PTR position = dstack_position;
     CONST char * filename = (STRING_ARG (1));
-    CONST char ** argv =
-      ((CONST char **) (convert_string_vector (ARG_REF (2))));
+    char * CONST * argv =
+      ((char * CONST *) (convert_string_vector (ARG_REF (2))));
     SCHEME_OBJECT env_object = (ARG_REF (3));
-    char ** env = 0;
+    char * CONST * env = 0;
     CONST char * working_directory = 0;
     enum process_ctty_type ctty_type;
     char * ctty_name = 0;
@@ -120,7 +120,7 @@ Seventh arg STDERR is the error channel for the subprocess.\n\
       {
 	if (! (string_vector_p (env_object)))
 	  error_wrong_type_arg (3);
-	env = (convert_string_vector (env_object));
+	env = ((char * CONST *) (convert_string_vector (env_object)));
       }
     if ((ARG_REF (4)) == SHARP_F)
       ctty_type = process_ctty_type_none;