From eeac725c48dbdcaae6638da411a98e6b8ab86672 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 1 Jan 1987 19:07:14 +0000
Subject: [PATCH] *** empty log message ***

---
 v7/src/compiler/rtlgen/rgcomb.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/compiler/rtlgen/rgcomb.scm b/v7/src/compiler/rtlgen/rgcomb.scm
index 75763c021..3846e8a47 100644
--- a/v7/src/compiler/rtlgen/rgcomb.scm
+++ b/v7/src/compiler/rtlgen/rgcomb.scm
@@ -37,7 +37,7 @@
 
 ;;;; RTL Generation: Combinations
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgcomb.scm,v 1.5 1987/01/01 18:49:25 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgcomb.scm,v 1.6 1987/01/01 19:07:14 cph Exp $
 
 (declare (usual-integrations))
 (using-syntax (access compiler-syntax-table compiler-package)
@@ -159,7 +159,7 @@
 	(open-code:memory-reference combination offset rest-generator
 				    index)))))
 
-(define (open-code:memory-reference combination offset index)
+(define (open-code:memory-reference combination offset rest-generator index)
   (open-code-expression-1 combination offset rest-generator
     (lambda (operand)
       (rtl:make-fetch (rtl:locative-offset operand index)))))
-- 
2.25.1