From 3f251f04ba55de2799679ce7f76e10172c4781d5 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sat, 23 May 1987 09:33:12 +0000 Subject: [PATCH] Add PRIMITIVE_RETURN --- v7/src/microcode/prims.h | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/v7/src/microcode/prims.h b/v7/src/microcode/prims.h index a5558f227..1f8670fc5 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.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 -- 2.25.1