From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 20 Jul 1987 18:15:25 +0000 (+0000)
Subject: Fix broken increment of frame-size for invocation:lookup rule.
X-Git-Tag: 20090517-FFI~13237
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fb6968debcd764ff6f84ffeab6dbc582ae0d5fa7;p=mit-scheme.git

Fix broken increment of frame-size for invocation:lookup rule.
---

diff --git a/v7/src/compiler/machines/bobcat/rules3.scm b/v7/src/compiler/machines/bobcat/rules3.scm
index c093d44ea..d98cff68c 100644
--- a/v7/src/compiler/machines/bobcat/rules3.scm
+++ b/v7/src/compiler/machines/bobcat/rules3.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules3.scm,v 1.9 1987/07/16 10:11:23 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules3.scm,v 1.10 1987/07/20 18:15:25 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -98,7 +98,7 @@ MIT in each case. |#
      (LAP ,@set-environment
 	  ,@(generate-invocation-prefix prefix (list d4))
 	  ,(load-constant name (INST-EA (D 5)))
-	  ,(load-dnw (1+ frame-size) 0)
+	  ,(load-dnw frame-size 0)
 	  (JMP ,entry:compiler-lookup-apply)))))
 
 (define-rule statement