From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 23 Nov 1987 04:55:17 +0000 (+0000)
Subject: Add alternative primitive definition macro which works correctly with
X-Git-Tag: 20090517-FFI~13042
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1456e353f78f45420ab08dc15ca37212d24eace5;p=mit-scheme.git

Add alternative primitive definition macro which works correctly with
Emacs tags tables.
---

diff --git a/v7/src/microcode/prims.h b/v7/src/microcode/prims.h
index a5e2108d0..d91e28883 100644
--- a/v7/src/microcode/prims.h
+++ b/v7/src/microcode/prims.h
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prims.h,v 9.29 1987/11/17 08:15:06 jinx Exp $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prims.h,v 9.30 1987/11/23 04:55:17 cph Exp $ */
 
 /* This file contains some macros for defining primitives,
    for argument type or value checking, and for accessing
@@ -42,6 +42,10 @@ MIT in each case. */
 extern Pointer C_Name();					\
 Pointer C_Name()
 
+#define DEFINE_PRIMITIVE(Scheme_Name, C_Name, Number_of_args)	\
+extern Pointer C_Name();					\
+Pointer C_Name()
+
 /* This is a NOP.
    Any primitive declared this way must also be declared
    with Define_Primitive.