newlines at EOFs

svn: r13105
This commit is contained in:
Eli Barzilay 2009-01-14 03:10:47 +00:00
parent 0a51fa26e6
commit d1a0086471
149 changed files with 140 additions and 151 deletions

View File

@ -127,4 +127,3 @@
(ormap f l1 l2))] (ormap f l1 l2))]
[(f . args) (apply ormap f args)])]) [(f . args) (apply ormap f args)])])
ormap))) ormap)))

View File

@ -108,4 +108,3 @@
(= 0 (list-length '())) (= 0 (list-length '()))
(= 2 (list-length '(1 2))) (= 2 (list-length '(1 2)))
(= 3 (list-length '(1 2 (1 2 3 4)))) (= 3 (list-length '(1 2 (1 2 3 4))))

View File

@ -10,4 +10,3 @@
[base64-decode (Bytes -> Bytes)]) [base64-decode (Bytes -> Bytes)])
(provide base64-encode-stream base64-decode-stream base64-encode base64-decode) (provide base64-encode-stream base64-decode-stream base64-encode base64-decode)

View File

@ -40,5 +40,3 @@
(require-typed-struct/provide (malformed-server-response pop3) (require-typed-struct/provide (malformed-server-response pop3)
([communicator : communicator]) net/pop3) ([communicator : communicator]) net/pop3)

View File

@ -7,4 +7,3 @@
[qp-decode ( String -> String )] [qp-decode ( String -> String )]
[qp-encode-stream (case-lambda (Input-Port Output-Port -> Void) (Input-Port Output-Port String -> Void) )] [qp-encode-stream (case-lambda (Input-Port Output-Port -> Void) (Input-Port Output-Port String -> Void) )]
[qp-decode-stream ( Input-Port Output-Port -> Void )]) [qp-decode-stream ( Input-Port Output-Port -> Void )])

View File

@ -9,4 +9,3 @@
(String String (Listof String) (Listof String) (Listof String) (Listof String) String * -> Output-Port)]) (String String (Listof String) (Listof String) (Listof String) (Listof String) String * -> Output-Port)])
(provide send-mail-message/port send-mail-message #;no-mail-recipients) (provide send-mail-message/port send-mail-message #;no-mail-recipients)

View File

@ -6,4 +6,3 @@
[external-browser (-> (U Symbol #f (Pair String String)))]) [external-browser (-> (U Symbol #f (Pair String String)))])
(provide send-url unix-browser-list browser-preference? external-browser) (provide send-url unix-browser-list browser-preference? external-browser)

View File

@ -7,5 +7,3 @@
[smtp-sending-end-of-message (Parameter (-> Any))]) [smtp-sending-end-of-message (Parameter (-> Any))])
(provide smtp-send-message smtp-sending-end-of-message) (provide smtp-send-message smtp-sending-end-of-message)

View File

@ -12,4 +12,3 @@
[alist->form-urlencoded ( (Listof (cons Symbol String)) -> String )] [alist->form-urlencoded ( (Listof (cons Symbol String)) -> String )]
[form-urlencoded->alist ( String -> (Listof (cons Symbol String)) )] [form-urlencoded->alist ( String -> (Listof (cons Symbol String)) )]
[current-alist-separator-mode (Parameter Symbol)]) [current-alist-separator-mode (Parameter Symbol)])