Add PRIMITIVE_RETURN

diff --git a/v7/src/microcode/prims.h b/v7/src/microcode/prims.h
index a5558f22728f609abfd906a4bfd5eed1acb9ddaa..1f8670fc57d6e5681ea22aa064969eb7b56e1046 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.24 1987/05/14 13:49:36 cph Exp $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prims.h,v 9.25 1987/05/23 09:33:12 jinx Exp $ */
 
 /* This file contains some macros for defining primitives,
    for argument type or value checking, and for accessing
@@ -50,6 +50,8 @@ Pointer C_Name()
  * local variables for fast access.
  */
 
+#define PRIMITIVE_RETURN(value)        return (value)
+
 #ifdef ENABLE_PRIMITIVE_PROFILING
 #define primitive_entry_hook() record_primitive_entry (Fetch_Expression ())
 #else