From 254e901392b81014cf752f5a9270901631dacfeb Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 24 May 1989 15:11:28 +0000 Subject: [PATCH] Fix bug in debugging version of Apply_Primitive. The macro INTERNAL_APPLY_PRIMITIVE was being called with only one argument. --- v7/src/microcode/utils.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/microcode/utils.c b/v7/src/microcode/utils.c index ff582998b..0eeb76455 100644 --- a/v7/src/microcode/utils.c +++ b/v7/src/microcode/utils.c @@ -1,6 +1,6 @@ /* -*-C-*- -Copyright (c) 1987, 1988 Massachusetts Institute of Technology +Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -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/utils.c,v 9.40 1989/03/27 23:17:22 jinx Exp $ */ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utils.c,v 9.41 1989/05/24 15:11:28 jinx Exp $ */ /* This file contains utilities for interrupts, errors, etc. */ @@ -758,7 +758,7 @@ Apply_Primitive (primitive) Print_Primitive(primitive); } Saved_Stack = Stack_Pointer; - Result = INTERNAL_APPLY_PRIMITIVE(primitive); + INTERNAL_APPLY_PRIMITIVE(Result, primitive); if (Saved_Stack != Stack_Pointer) { -- 2.25.1