Redefine `reference-alias-register!' to load the alias register rather

than just allocating it.  This is almost always what is desired.

diff --git a/v7/src/compiler/back/lapgn2.scm b/v7/src/compiler/back/lapgn2.scm
index 2f6fa7f4a51cbe4180a7a62d4d49f7348724cae5..c9639c235e6c2528d37dca5d535bb7d4746cf0f1 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.1 1987/06/13 21:18:05 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn2.scm,v 1.2 1987/06/15 22:04:22 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -111,7 +111,7 @@ MIT in each case. |#
   alias)
 
 (define-integrable (reference-alias-register! register type)
-  (register-reference (allocate-alias-register! register type)))
+  (register-reference (load-alias-register! register type)))
 
 (define-integrable (reference-assignment-alias! register type)
   (register-reference (allocate-assignment-alias! register type)))