From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 28 Oct 1993 02:57:14 +0000 (+0000)
Subject: Reformat some code to fit in 80 columns.
X-Git-Tag: 20090517-FFI~7656
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7f8669d4345f32f07a24b0c9cf68b8beb8910fe5;p=mit-scheme.git

Reformat some code to fit in 80 columns.
---

diff --git a/v7/src/compiler/machines/C/rulfix.scm b/v7/src/compiler/machines/C/rulfix.scm
index a9bb8a235..a11168d6b 100644
--- a/v7/src/compiler/machines/C/rulfix.scm
+++ b/v7/src/compiler/machines/C/rulfix.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: rulfix.scm,v 1.1 1993/06/08 06:13:32 gjr Exp $
+$Id: rulfix.scm,v 1.2 1993/10/28 02:57:14 gjr Exp $
 
-Copyright (c) 1992 Massachusetts Institute of Technology
+Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -427,7 +427,8 @@ MIT in each case. |#
 	   fixnum-methods/2-args/register*constant
 	   (lambda (tgt src1 constant overflow?)
 	     (if overflow? (no-overflow-branches!))
-	     (LAP ,',tgt " = (" ,',src1 ,instr ,',(longify constant) ");\n\t"))))))
+	     (LAP ,',tgt " = (" ,',src1 ,instr ,',(longify constant)
+		  ");\n\t"))))))
 
   (binary-fixnum FIXNUM-AND	" & ")
   (binary-fixnum FIXNUM-OR	" | ")
@@ -495,6 +496,5 @@ MIT in each case. |#
 
 (define (longify constant)
   (if (number? constant)
-      (string-append (number->string constant)
-		     "L")
+      (string-append (number->string constant) "L")
       constant))
\ No newline at end of file