From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 7 Nov 1988 13:57:02 +0000 (+0000)
Subject: (delete-dead-registers!): Rewrite to accomodate change to
X-Git-Tag: 20090517-FFI~12422
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8810045c6dca50ff260c1c18cdada7ad1757e7e2;p=mit-scheme.git

(delete-dead-registers!): Rewrite to accomodate change to
`delete-pseudo-registers'.
---

diff --git a/v7/src/compiler/back/lapgn2.scm b/v7/src/compiler/back/lapgn2.scm
index 0083ee403..bcfbb8d33 100644
--- a/v7/src/compiler/back/lapgn2.scm
+++ b/v7/src/compiler/back/lapgn2.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn2.scm,v 1.8 1988/08/29 22:31:59 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn2.scm,v 1.9 1988/11/07 13:57:02 cph Rel $
 
 Copyright (c) 1987, 1988 Massachusetts Institute of Technology
 
@@ -88,9 +88,8 @@ MIT in each case. |#
   (memv register *dead-registers*))
 
 (define (delete-dead-registers!)
-  (delete-pseudo-registers *register-map* *dead-registers*
-    (lambda (map aliases)
-      (set! *register-map* map)))
+  (set! *register-map*
+	(delete-pseudo-registers *register-map* *dead-registers*))
   (set! *dead-registers* '()))
 
 ;; `*prefix-instructions*' is used to accumulate LAP instructions to