From 3700158a94f9f428b811fbd7b3d38be3f1ea43ff Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 16 May 2014 22:10:17 -0700
Subject: [PATCH] Fix trailing whitespace.

---
 src/compiler/rtlgen/opncod.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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))))
-- 
2.25.1