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 a5e2108d059cc9e7d832dfdff485ac89c6483418..d91e28883151b4dfc563de8e0a5ea193bf3c644d 100644 (file)
--- 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.