From cdf2a882dd2023ce8428464d0d2348e065d79e9c Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Fri, 12 Feb 1993 01:57:47 +0000 Subject: [PATCH] Remove name conflict introduced by last change. --- v7/src/compiler/machines/spectrum/rulflo.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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. '((> !>) (< !<) -- 2.25.1