From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 24 May 1989 15:11:28 +0000 (+0000)
Subject: Fix bug in debugging version of Apply_Primitive.  The macro
X-Git-Tag: 20090517-FFI~12043
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=254e901392b81014cf752f5a9270901631dacfeb;p=mit-scheme.git

Fix bug in debugging version of Apply_Primitive.  The macro
INTERNAL_APPLY_PRIMITIVE was being called with only one argument.
---

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)
   {