Use incorrect typing of references to `make_primitive' to eliminate

warning messages.

diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index 5a9e1dd17f2cdbefd67301a25da5fd24df940e16..cfed9cf880d43d41b6d25d40aa991972a879e6aa 100644 (file)
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/boot.c,v 9.73 1992/09/02 04:38:57 jinx Exp $
+$Id: boot.c,v 9.74 1992/09/24 01:33:37 cph Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -49,6 +49,7 @@ extern void EXFUN (init_exit_scheme, (void));
 extern void EXFUN (Clear_Memory, (int, int, int));
 extern void EXFUN (Setup_Memory, (int, int, int));
 extern void EXFUN (compiler_initialize, (long fasl_p));
+extern SCHEME_OBJECT EXFUN (make_primitive, (char *));
 \f
 static void EXFUN (Start_Scheme, (int, CONST char *));
 static void EXFUN (Enter_Interpreter, (void));
@@ -174,7 +175,6 @@ SCHEME_OBJECT
 DEFUN_VOID (make_fixed_objects_vector)
 {
   extern SCHEME_OBJECT initialize_history ();
-  extern SCHEME_OBJECT make_primitive ();
   /* Create the fixed objects vector,
      with 4 extra slots for expansion and debugging. */
   fast SCHEME_OBJECT fixed_objects_vector =
@@ -298,7 +298,6 @@ static void
 DEFUN (Start_Scheme, (Start_Prim, File_Name),
        int Start_Prim AND CONST char * File_Name)
 {
-  extern SCHEME_OBJECT EXFUN (make_primitive, (unsigned char *));
   SCHEME_OBJECT FName, Init_Prog, *Fasload_Call, prim;
   fast long i;
   /* Parallel processor test */
@@ -330,7 +329,7 @@ DEFUN (Start_Scheme, (Start_Prim, File_Name),
       Fasload_Call = Free;
       *Free++ = prim;
       *Free++ = FName;
-      prim = make_primitive("SCODE-EVAL");
+      prim = (make_primitive ("SCODE-EVAL"));
       Init_Prog = MAKE_POINTER_OBJECT (TC_PCOMB2, Free);
       *Free++ = prim;
       *Free++ = MAKE_POINTER_OBJECT (TC_PCOMB1, Fasload_Call);
@@ -347,7 +346,7 @@ DEFUN (Start_Scheme, (Start_Prim, File_Name),
       break;
 
     case BOOT_GET_WORK:                /* ((GET-WORK)) */
-      prim = make_primitive("GET-WORK");
+      prim = (make_primitive ("GET-WORK"));
       Fasload_Call = Free;
       *Free++ = prim;
       *Free++ = SHARP_F;

diff --git a/v7/src/microcode/dosconio.c b/v7/src/microcode/dosconio.c
index 3cb890f0c39aace41bdc0cee9714e73eacdc5f94..f0d2102f62ccb3432275bb83f0314395e002947a 100644 (file)
--- a/v7/src/microcode/dosconio.c
+++ b/v7/src/microcode/dosconio.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: dosconio.c,v 1.6 1992/09/11 21:57:29 cph Exp $
+$Id: dosconio.c,v 1.7 1992/09/24 01:34:59 cph Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -265,7 +265,7 @@ extern void EXFUN (DOS_initialize_fov, (SCHEME_OBJECT));
 void
 DEFUN (DOS_initialize_fov, (fov), SCHEME_OBJECT fov)
 {
-  extern SCHEME_OBJECT EXFUN (make_primitive, (unsigned char *));
+  extern SCHEME_OBJECT EXFUN (make_primitive, (char *));
   SCHEME_OBJECT iv, prim;
 
   prim = (make_primitive ("DOS-HIGH-PRIORITY-TIMER-INTERRUPT"));