From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 1 Jan 1987 19:07:14 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: 20090517-FFI~13772
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=eeac725c48dbdcaae6638da411a98e6b8ab86672;p=mit-scheme.git

*** empty log message ***
---

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