From a01cf359eb42c151ee8ed11a5ea870b431aa00cb Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 7 Sep 2016 08:44:11 -0500
Subject: [PATCH] bring line lengths down below recommended widths

---
 racket/collects/racket/contract/private/arrow-common.rkt | 9 ++++++---
 .../racket/contract/private/arrow-higher-order.rkt       | 6 ++++--
 2 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/racket/collects/racket/contract/private/arrow-common.rkt b/racket/collects/racket/contract/private/arrow-common.rkt
index 836f2167b6..341e687340 100644
--- a/racket/collects/racket/contract/private/arrow-common.rkt
+++ b/racket/collects/racket/contract/private/arrow-common.rkt
@@ -51,7 +51,8 @@
 
 (define tail-contract-key (gensym 'tail-contract-key))
 
-(define-for-syntax (check-tail-contract rng-ctcs blame-party-info neg-party rng-checkers call-gen blame+neg-party)
+(define-for-syntax (check-tail-contract rng-ctcs blame-party-info neg-party
+                                        rng-checkers call-gen blame+neg-party)
   (unless (identifier? rng-ctcs)
     (raise-argument-error 'check-tail-contract
                           "identifier?"
@@ -64,7 +65,8 @@
            #,(call-gen #'())
            #,(call-gen rng-checkers)))))
 
-;; matches-arity-exactly? : procedure number (or/c number #f) (listof keyword?) (listof keyword?) -> boolean
+;; matches-arity-exactly? : procedure number (or/c number #f) (listof keyword?) (listof keyword?)
+;;                       -> boolean
 (define (matches-arity-exactly? val min-arity max-arity contract-req-kwds contract-opt-kwds)
   (define proc-arity (procedure-arity val)) 
   (and (let-values ([(vr va) (procedure-keywords val)])
@@ -347,7 +349,8 @@
                                #:missing-party [missing-party #f])
   (define num-values (length results))
   (define blame-case (if case-context 
-                         (blame-add-context blame (format "the ~a case of" (n->th (+ case-context 1))))
+                         (blame-add-context blame (format "the ~a case of"
+                                                          (n->th (+ case-context 1))))
                          blame))
   (raise-blame-error (blame-add-range-context blame-case)
                      #:missing-party missing-party
diff --git a/racket/collects/racket/contract/private/arrow-higher-order.rkt b/racket/collects/racket/contract/private/arrow-higher-order.rkt
index d334e5c46b..bdb49a2da0 100644
--- a/racket/collects/racket/contract/private/arrow-higher-order.rkt
+++ b/racket/collects/racket/contract/private/arrow-higher-order.rkt
@@ -290,10 +290,12 @@
                                           blame-party-info
                                           neg-party
                                           #'not-a-null
-                                          (λ (x) (inner-stx-gen x assume-result-values? do-tail-check?))
+                                          (λ (x)
+                                            (inner-stx-gen x assume-result-values? do-tail-check?))
                                           #'(cons blame neg-party))
                                          (inner-stx-gen #'() assume-result-values? do-tail-check?))
-                                     (inner-stx-gen #'not-a-null assume-result-values? do-tail-check?)))
+                                     (inner-stx-gen #'not-a-null assume-result-values?
+                                                    do-tail-check?)))
                                (list (mk-return #f #t) (mk-return #t #t) (mk-return #t #f)))]
                             [kwd-return
                              (let* ([inner-stx-gen