Reformat multi-line IFs to have the consequent on a separate lines.

scheme/lib/smtp.scm

@@ -180,7 +180,8 @@
   (let ((sock (socket-connect protocol-family/internet socket-type/stream host
 			      (:optional maybe-port "smtp"))))
     (receive (code text) (handle-smtp-reply sock)
-      (if (< code 400) sock
+      (if (< code 400)
+	  sock
 	  (error "SMTP socket-open server-reply error" sock code text)))))
 
 ;; HELLO <local-hostname>
@@ -198,7 +199,8 @@
     (lambda (message)			; MESSAGE is a string or an input port.
       (lambda (socket)
 	(receive (code text) (send-DATA-msg socket)
-	  (if (>= code 400) (values code text) ; Error.
+	  (if (>= code 400)
+	      (values code text) ; Error.
 
 	      ;; We got a positive acknowledgement for the DATA msg,
 	      ;; now send the message body.
@@ -298,7 +300,8 @@
 			    (reverse replies)))
 	  (receive (code line more?) (parse-smtp-reply ln)
 	    (let ((replies (cons line replies)))
-	      (if more? (lp replies)
+	      (if more?
+		  (lp replies)
 		  (values code (reverse replies)))))))))
 
 ;;; Parse a line of SMTP reply. Return three values:
@@ -350,7 +353,8 @@
 		      (+ i 1)))
 		count))))
 
-    (values (if (zero? hits) s
+    (values (if (zero? hits)
+		s
 		;; Make a new string, and do the dot-stuffing copy.
 		(let ((ns (make-string (+ hits slen))))
 		  (let lp ((nl? (eqv? pchar #\newline))