Remove name conflict introduced by last change.

diff --git a/v7/src/compiler/machines/spectrum/rulflo.scm b/v7/src/compiler/machines/spectrum/rulflo.scm
index ec32c3f83dea4a130ad6ad817509e4e0d5630610..997460c2afda0a0750607e6174baac3844cd064e 100644 (file)
--- a/v7/src/compiler/machines/spectrum/rulflo.scm
+++ b/v7/src/compiler/machines/spectrum/rulflo.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rulflo.scm,v 4.34 1993/02/12 01:06:24 gjr Exp $
+$Id: rulflo.scm,v 4.35 1993/02/12 01:57:47 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -193,13 +193,13 @@ MIT in each case. |#
 ;; correctly.
 
 (define (invert-float-condition cc)
-  (let ((place (assq cc float-condition-table)))
+  (let ((place (assq cc float-inversion-table)))
     (if (not place)
        (error "invert-float-condition: Unknown condition"
               cc)
        (cadr place))))
 
-(define float-condition-table
+(define float-inversion-table
   ;; There are many others, but only these are used here.
   '((> !>)
     (< !<)