From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 4 Nov 1988 11:11:12 +0000 (+0000)
Subject: Add declarations to eliminate "unreferenced bound variable" warnings.
X-Git-Tag: 20090517-FFI~12442
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c2a3ed03f71b9996a16be4c2fa01d6f58163d635;p=mit-scheme.git

Add declarations to eliminate "unreferenced bound variable" warnings.
---

diff --git a/v7/src/compiler/rtlgen/opncod.scm b/v7/src/compiler/rtlgen/opncod.scm
index 91a6de235..959d130d0 100644
--- a/v7/src/compiler/rtlgen/opncod.scm
+++ b/v7/src/compiler/rtlgen/opncod.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/opncod.scm,v 4.18 1988/11/04 11:08:55 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/opncod.scm,v 4.19 1988/11/04 11:11:12 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -475,8 +475,8 @@ MIT in each case. |#
 	  (lambda (name index)
 	    (define-open-coder/value name
 	      (lambda (operands)
-		(return-2 (open-code/memory-ref index)
-			  '(0)))))))
+		operands
+		(return-2 (open-code/memory-ref index) '(0)))))))
     (define/ref
       '(CAR SYSTEM-PAIR-CAR CELL-CONTENTS SYSTEM-HUNK3-CXR0) 0)
     (define/ref