From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 17 May 2014 05:10:17 +0000 (-0700)
Subject: Fix trailing whitespace.
X-Git-Tag: release-9.2.0~4
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3700158a94f9f428b811fbd7b3d38be3f1ea43ff;p=mit-scheme.git

Fix trailing whitespace.
---

diff --git a/src/compiler/rtlgen/opncod.scm b/src/compiler/rtlgen/opncod.scm
index 2fb468dbe..e521373e1 100644
--- a/src/compiler/rtlgen/opncod.scm
+++ b/src/compiler/rtlgen/opncod.scm
@@ -514,7 +514,7 @@ USA.
 	      (make-constant-locative
 	       (make-variable-locative base
 				       (rtl:make-object->datum index))
-	       header-length-in-units)))))	       
+	       header-length-in-units)))))
       (if (rtl:constant? index)
 	  (let ((value (rtl:constant-value index)))
 	    (if (and (object-type? (ucode-type fixnum) value)
@@ -630,7 +630,7 @@ USA.
   (lambda (locative value finish)
     (let ((assignment (make-assignment locative value)))
       (if finish
-#|	  
+#|
 	  (load-temporary-register scfg*scfg->scfg! (make-fetch locative)
 	    (lambda (temporary)
 	      (scfg*scfg->scfg! assignment (finish temporary))))