From 339d2f6fdf12bd46bd9efe05776220c7b3603d0f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 17 Dec 1986 08:00:35 +0000
Subject: [PATCH] Fix incorrect definition of `define-assignment-method'.

---
 v7/src/compiler/rtlopt/rcse1.scm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/v7/src/compiler/rtlopt/rcse1.scm b/v7/src/compiler/rtlopt/rcse1.scm
index c5a7d6592..c599350ea 100644
--- a/v7/src/compiler/rtlopt/rcse1.scm
+++ b/v7/src/compiler/rtlopt/rcse1.scm
@@ -38,7 +38,7 @@
 ;;;; RTL Common Subexpression Elimination
 ;;;  Based on the GNU C Compiler
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcse1.scm,v 1.93 1986/12/16 06:24:11 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcse1.scm,v 1.94 1986/12/17 08:00:35 cph Exp $
 
 (declare (usual-integrations))
 (using-syntax (access compiler-syntax-table compiler-package)
@@ -204,10 +204,11 @@
 (define (define-assignment-method type
 	  get-environment set-environment!
 	  get-value set-value!)
-  (lambda (statement)
-    (expression-replace! get-value set-value! statement trivial-action)
-    (expression-replace! get-environment set-environment! statement
-      (normal-action (lambda ()	(memory-invalidate! true))))))
+  (define-cse-method type
+    (lambda (statement)
+      (expression-replace! get-value set-value! statement trivial-action)
+      (expression-replace! get-environment set-environment! statement
+	(normal-action (lambda () (memory-invalidate! true)))))))
 
 (define-assignment-method 'INTERPRETER-CALL:DEFINE
   rtl:interpreter-call:define-environment
-- 
2.25.1