Fix typo introduced in last changes.

diff --git a/v7/src/compiler/machines/bobcat/rules1.scm b/v7/src/compiler/machines/bobcat/rules1.scm
index 36ffcb6ca872b6403f4ada2d201bd772eb6cca28..d7c7fa20f9765f64694f4636623e324ae38527bb 100644 (file)
--- a/v7/src/compiler/machines/bobcat/rules1.scm
+++ b/v7/src/compiler/machines/bobcat/rules1.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules1.scm,v 4.17 1988/11/04 12:16:32 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules1.scm,v 4.18 1988/11/04 21:49:26 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -180,7 +180,7 @@ MIT in each case. |#
   (ASSIGN (REGISTER (? target))
          (ADDRESS->FIXNUM (OBJECT->ADDRESS (REGISTER (? source)))))
   (QUALIFIER (pseudo-register? target))
-  (convert-object/register->register target source object->address))
+  (convert-object/register->register target source address->fixnum))
 
 (define (convert-object/offset->register target address offset conversion)
   (let ((source (indirect-reference! address offset)))