Fold over-long lines.

diff --git a/src/runtime/mit-macros.scm b/src/runtime/mit-macros.scm
index 170e4d4dbbe866c4e6bdbcbbb834b3052099c262..b10404f96dc26df56a748893e4b25d62982c45cb 100644 (file)
--- 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)