scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

This commit is contained in:
sperber 2002-09-02 08:47:32 +00:00
parent 4aa41b038f
commit 1b0bce77e6
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
scheme/lib/smtp.scm
View File

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