From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 26 Oct 1993 20:00:55 +0000 (+0000)
Subject: Upcase types for consistency.
X-Git-Tag: 20090517-FFI~7692
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=eb05d0ea0b44d21a12c8732c3cc80c7b1ecbeed1;p=mit-scheme.git

Upcase types for consistency.
---

diff --git a/v7/src/compiler/machines/C/rulflo.scm b/v7/src/compiler/machines/C/rulflo.scm
index 0e2315903..eab6319cf 100644
--- a/v7/src/compiler/machines/C/rulflo.scm
+++ b/v7/src/compiler/machines/C/rulflo.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rulflo.scm,v 1.2 1993/10/26 03:02:40 jawilson Exp $
+$Id: rulflo.scm,v 1.3 1993/10/26 20:00:55 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -142,9 +142,9 @@ MIT in each case. |#
   (ASSIGN (REGISTER (? target))
 	  (FLONUM-1-ARG (? operation) (REGISTER (? source)) (? overflow?)))
   overflow?				;ignore
-  (let ((source (standard-source! source 'double)))
+  (let ((source (standard-source! source 'DOUBLE)))
     ((flonum-1-arg/operator operation)
-     (standard-target! target 'double)
+     (standard-target! target 'DOUBLE)
      source)))
 
 (define (flonum-1-arg/operator operation)
@@ -191,7 +191,7 @@ MIT in each case. |#
   (let ((source1 (standard-source! source1 'double))
 	(source2 (standard-source! source2 'double)))
     ((flonum-2-args/operator operation)
-     (standard-target! target 'double)
+     (standard-target! target 'DOUBLE)
      source1
      source2)))