From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 18 Dec 2011 08:10:01 +0000 (-0800)
Subject: Fix over-long line and tweak indentation.
X-Git-Tag: release-9.2.0~337
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=97afce111f09815cf2bba38aa303deece708c18f;p=mit-scheme.git

Fix over-long line and tweak indentation.
---

diff --git a/src/sf/toplev.scm b/src/sf/toplev.scm
index 20fa99c7e..e59fa2248 100644
--- a/src/sf/toplev.scm
+++ b/src/sf/toplev.scm
@@ -122,35 +122,35 @@ USA.
 (define (sf/internal input-pathname bin-pathname spec-pathname
 		     environment declarations)
   spec-pathname				;ignored
-  (with-simple-restart
-   'CONTINUE (string-append "Skip processing file " (->namestring input-pathname))
-   (lambda ()
-     (let ((do-it
-	    (let ((start-date (get-decoded-time)))
-	      (lambda ()
-		(fasdump (make-comment
-			  `((SOURCE-FILE . ,(->namestring input-pathname))
-			    (DATE ,(decoded-time/year start-date)
-				  ,(decoded-time/month start-date)
-				  ,(decoded-time/day start-date))
-			    (TIME ,(decoded-time/hour start-date)
-				  ,(decoded-time/minute start-date)
-				  ,(decoded-time/second start-date)))
-			  (sf/file->scode input-pathname bin-pathname
-					  environment declarations))
-			 bin-pathname
-			 #t)))))
-       (if sf:noisy?
-	   (let ((message
-		  (lambda (port)
-		    (write-string "Generating SCode for file: " port)
-		    (write (enough-namestring input-pathname) port)
-		    (write-string " => " port)
-		    (write (enough-namestring bin-pathname) port))))
-	     (if (eq? sf:noisy? 'old-style)
-		 (timed message do-it)
-		 (with-notification message do-it)))
-	   (do-it))))))
+  (with-simple-restart 'CONTINUE
+      (string-append "Skip processing file " (->namestring input-pathname))
+    (lambda ()
+      (let ((do-it
+	     (let ((start-date (get-decoded-time)))
+	       (lambda ()
+		 (fasdump (make-comment
+			   `((SOURCE-FILE . ,(->namestring input-pathname))
+			     (DATE ,(decoded-time/year start-date)
+				   ,(decoded-time/month start-date)
+				   ,(decoded-time/day start-date))
+			     (TIME ,(decoded-time/hour start-date)
+				   ,(decoded-time/minute start-date)
+				   ,(decoded-time/second start-date)))
+			   (sf/file->scode input-pathname bin-pathname
+					   environment declarations))
+			  bin-pathname
+			  #t)))))
+	(if sf:noisy?
+	    (let ((message
+		   (lambda (port)
+		     (write-string "Generating SCode for file: " port)
+		     (write (enough-namestring input-pathname) port)
+		     (write-string " => " port)
+		     (write (enough-namestring bin-pathname) port))))
+	      (if (eq? sf:noisy? 'old-style)
+		  (timed message do-it)
+		  (with-notification message do-it)))
+	    (do-it))))))
 
 (define (sf/file->scode input-pathname output-pathname
 			environment declarations)