From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 24 Sep 1992 01:35:18 +0000 (+0000)
Subject: Change typing of procedure to match arguments that are normally passed
X-Git-Tag: 20090517-FFI~8915
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cfe3ab10211eae0321d1c40407399f71a5a5728a;p=mit-scheme.git

Change typing of procedure to match arguments that are normally passed
to it.
---

diff --git a/v7/src/microcode/primutl.c b/v7/src/microcode/primutl.c
index b3658a820..b0ad65f54 100644
--- a/v7/src/microcode/primutl.c
+++ b/v7/src/microcode/primutl.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/primutl.c,v 9.57 1992/07/23 12:48:42 jinx Exp $
+$Id: primutl.c,v 9.58 1992/09/24 01:35:18 cph Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -210,10 +210,12 @@ EXFUN (search_for_primitive,
 	Boolean intern_p, Boolean allow_p, int arity));
 
 SCHEME_OBJECT
-DEFUN (make_primitive, (name), unsigned char * name)
+DEFUN (make_primitive, (name), char * name)
 {
 
-  return (search_for_primitive (SHARP_F, name, true, true,
+  return (search_for_primitive (SHARP_F,
+				((unsigned char *) name),
+				true, true,
 				UNKNOWN_PRIMITIVE_ARITY));
 }