From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 21 Nov 1989 23:31:05 +0000 (+0000)
Subject: Fix a bug in comutil_operator_lexpr_trap.
X-Git-Tag: 20090517-FFI~11682
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=125a3b06dcf473464a68ca56a778beca57ecd128;p=mit-scheme.git

Fix a bug in comutil_operator_lexpr_trap.
The number of arguments stored in the trampoline is 1 greater than the
number of actual arguments passed, but the primitive convention
expects the correct number.
---

diff --git a/v7/src/microcode/cmpint.c b/v7/src/microcode/cmpint.c
index d19604f0b..1a8b680a5 100644
--- a/v7/src/microcode/cmpint.c
+++ b/v7/src/microcode/cmpint.c
@@ -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/cmpint.c,v 1.15 1989/11/20 23:13:16 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpint.c,v 1.16 1989/11/21 23:31:05 jinx Exp $
  *
  * This file corresponds to
  * $COMPILER-Header: compiler.c,v 9.37 89/10/25 14:55:45 GMT jinx Exp $
@@ -1079,7 +1079,7 @@ comutil_operator_lexpr_trap (tramp_data, ignore_2, ignore_3, ignore_4)
    */
 
   Regs[REGBLOCK_LEXPR_ACTUALS] =
-    ((SCHEME_OBJECT) (OBJECT_DATUM (tramp_data[1])));
+    ((SCHEME_OBJECT) ((OBJECT_DATUM (tramp_data[1])) - 1));
   return (comutil_primitive_lexpr_apply ((tramp_data[0]), 0, 0, 0));
 }
 
diff --git a/v8/src/microcode/cmpint.c b/v8/src/microcode/cmpint.c
index b8a4fdba9..181a37001 100644
--- a/v8/src/microcode/cmpint.c
+++ b/v8/src/microcode/cmpint.c
@@ -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/v8/src/microcode/cmpint.c,v 1.15 1989/11/20 23:13:16 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpint.c,v 1.16 1989/11/21 23:31:05 jinx Exp $
  *
  * This file corresponds to
  * $COMPILER-Header: compiler.c,v 9.37 89/10/25 14:55:45 GMT jinx Exp $
@@ -1079,7 +1079,7 @@ comutil_operator_lexpr_trap (tramp_data, ignore_2, ignore_3, ignore_4)
    */
 
   Regs[REGBLOCK_LEXPR_ACTUALS] =
-    ((SCHEME_OBJECT) (OBJECT_DATUM (tramp_data[1])));
+    ((SCHEME_OBJECT) ((OBJECT_DATUM (tramp_data[1])) - 1));
   return (comutil_primitive_lexpr_apply ((tramp_data[0]), 0, 0, 0));
 }