From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 26 Dec 2017 05:09:20 +0000 (-0500)
Subject: Fold over-long lines.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~424^2~3
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3a3ac83db6f1ab7be7994d6b201ba63dc709bfd0;p=mit-scheme.git

Fold over-long lines.
---

diff --git a/src/runtime/mit-macros.scm b/src/runtime/mit-macros.scm
index 170e4d4db..b10404f96 100644
--- a/src/runtime/mit-macros.scm
+++ b/src/runtime/mit-macros.scm
@@ -229,9 +229,11 @@ USA.
 		  ((fixed-point)
 		   (let ((iter (make-synthetic-identifier 'ITER))
 			 (kernel (make-synthetic-identifier 'KERNEL))
-			 (temps (map (lambda (b)
-				       (declare (ignore b))
-				       (make-synthetic-identifier 'TEMP)) bindings))
+			 (temps
+			  (map (lambda (b)
+				 (declare (ignore b))
+				 (make-synthetic-identifier 'TEMP))
+			       bindings))
 			 (r-lambda (rename 'LAMBDA))
 			 (r-declare (rename 'DECLARE)))
 		     `((,r-lambda (,kernel)
@@ -260,7 +262,9 @@ USA.
 			       ,@body)))
 		      ,name)
 		     ,@vals))
-		  (else (error "Unrecognized named-let-strategy: " named-let-strategy))))))
+		  (else
+		   (error "Unrecognized named-let-strategy:"
+			  named-let-strategy))))))
 	   ((syntax-match? '((* (IDENTIFIER ? EXPRESSION)) + FORM) (cdr form))
 	    `(,keyword:let ,@(cdr (normalize-let-bindings form))))
 	   (else
@@ -306,13 +310,18 @@ USA.
 	   (r-lambda (rename 'LAMBDA))
 	   (r-named-lambda (rename 'NAMED-LAMBDA))
 	   (r-set!   (rename 'SET!)))
-       (let ((temps (map (lambda (binding)
-			   (make-synthetic-identifier
-			    (identifier->symbol (car binding)))) bindings)))
+       (let ((temps
+	      (map (lambda (binding)
+		     (make-synthetic-identifier
+		      (identifier->symbol (car binding))))
+		   bindings)))
 	 `((,r-named-lambda (,lambda-tag:unnamed ,@(map car bindings))
 			    ((,r-lambda ,temps
 					,@(map (lambda (binding temp)
-						 `(,r-set! ,(car binding) ,temp)) bindings temps))
+						 `(,r-set! ,(car binding)
+							   ,temp))
+					       bindings
+					       temps))
 			     ,@(map cadr bindings))
 			    ((,r-lambda () ,@(cddr form))))
 	   ,@(map (lambda (binding)