From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Fri, 12 Feb 1993 01:57:47 +0000 (+0000)
Subject: Remove name conflict introduced by last change.
X-Git-Tag: 20090517-FFI~8527
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cdf2a882dd2023ce8428464d0d2348e065d79e9c;p=mit-scheme.git

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 ec32c3f83..997460c2a 100644
--- 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.
   '((> !>)
     (< !<)