From ce257f14a607c5db39d410c166662d665088c47b Mon Sep 17 00:00:00 2001 From: "Henry M. Wu" Date: Thu, 27 Feb 1992 19:02:48 +0000 Subject: [PATCH] Declared search_for_primitive properly. --- v7/src/microcode/primutl.c | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/v7/src/microcode/primutl.c b/v7/src/microcode/primutl.c index 754270b26..c307a157a 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.54 1992/02/03 23:35:09 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/primutl.c,v 9.55 1992/02/27 19:02:48 mhwu Exp $ Copyright (c) 1988-1992 Massachusetts Institute of Technology @@ -212,26 +212,27 @@ DEFUN (primitive_code_to_documentation, (number), long number) /* Externally visible utilities */ extern SCHEME_OBJECT EXFUN (make_primitive, (char *)); +extern SCHEME_OBJECT EXFUN + (find_primitive, (SCHEME_OBJECT, Boolean, Boolean, int)); +extern SCHEME_OBJECT +EXFUN (search_for_primitive, + (SCHEME_OBJECT scheme_name AND char * c_name + AND Boolean intern_p AND Boolean allow_p AND int arity)); SCHEME_OBJECT DEFUN (make_primitive, (name), char * name) { - SCHEME_OBJECT search_for_primitive(); return (search_for_primitive(SHARP_F, name, true, true, UNKNOWN_PRIMITIVE_ARITY)); } -extern SCHEME_OBJECT EXFUN - (find_primitive, (SCHEME_OBJECT, Boolean, Boolean, int)); - SCHEME_OBJECT DEFUN (find_primitive, (name, intern_p, allow_p, arity), SCHEME_OBJECT name AND Boolean intern_p AND Boolean allow_p AND int arity) { - SCHEME_OBJECT search_for_primitive(); return (search_for_primitive(name, (STRING_LOC (name, 0)), intern_p, allow_p, arity)); -- 2.25.1