(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 0083ee403bc0b04981e3da634285bb2f6e4a41ab..bcfbb8d33345572900ba830a6d6861160b37f2a6 100644 (file)
--- 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