From 400e4de8919d4601fb2cbe0076885a55c1085b31 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 3 Jul 2014 20:00:40 -0500 Subject: [PATCH] bring down below 102 columns --- .../collects/racket/contract/private/guts.rkt | 50 ++++++++++++------- 1 file changed, 32 insertions(+), 18 deletions(-) diff --git a/racket/collects/racket/contract/private/guts.rkt b/racket/collects/racket/contract/private/guts.rkt index 6b7aa16a4e..048cdb5abf 100644 --- a/racket/collects/racket/contract/private/guts.rkt +++ b/racket/collects/racket/contract/private/guts.rkt @@ -286,7 +286,9 @@ [(_ margs (... ...)) (let ([this-one (gensym 'ctc)]) (with-syntax ([(margs (... ...)) - (map (λ (x) (syntax-property x 'racket/contract:positive-position this-one)) + (map (λ (x) (syntax-property x + 'racket/contract:positive-position + this-one)) (syntax->list #'(margs (... ...))))] [app (datum->syntax stx '#%app)]) (syntax-property @@ -302,23 +304,35 @@ (if (contract-struct? sub) (contract-struct-name sub) sub))) -; -; -; -; -; ; ;;; ; ; -; ;;; ;;; ;;; -; ;;;;; ;;;;; ;;; ;;; ;; ;;; ;;; ;;; ;;; ;;; ;;; ;; ;;;;; ;;; ;;;;;;; ;;; ;;;;; ;;;; -; ;;;;;;;;;;;; ;;;;; ;;;;;;;;;;; ;;; ;;;;; ;;;;; ;;;;; ;;;;;;;;;;;; ;;;;;;;;;;;; ;;;;; ;;;;; ;;; ;; -; ;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;; ;;; ;; ;;; ;;; ;;; ;;; ;;; ;;; ;; ;;; ;;; ;; ;;; ;;; -; ;;;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;;;; ;;; ;;; ;;;; -; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;; ;;; ;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;; ;;; ;;; -; ;;; ;;; ;;;; ;;;;; ;;; ;;; ;;; ;;; ;;;;; ;;;;; ;;;;; ;;; ;;; ;;;; ;;; ;;; ;;; ;;;;; ;;;; ;; ;;; -; ;;;;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;;;;; ;;; ;;; ;;;; -; -; -; -; +; +; +; ; ;;; +; ;;; +; ;;;;; ;;;;; ;;; ;;; ;; ;;; ;;; ;;; +; ;;;;;;;;;;;; ;;;;; ;;;;;;;;;;; ;;; ;;;;; +; ;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;; +; ;;;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; +; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;; +; ;;; ;;; ;;;; ;;;;; ;;; ;;; ;;; ;;; ;;;;; +; ;;;;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; +; +; +; +; +; +; ; ; +; ;;; ;;; +; ;;; ;;; ;;; ;; ;;;; ;;; ;;;;;;; ;;; ;;;; ;;;; +; ;;;;; ;;;;; ;;;;;;; ;;;; ;;;;;;;;;;;; ;;;;; ;;;; ;;; ;; +; ;;; ;; ;;; ;;; ;;; ;;; ;;; ;;; ;; ;;; ;;; ;; ;;; ;;; +; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;;;; ;;; ;;; ;;;; +; ;;; ;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;; ;;; ;;; +; ;;;;; ;;;;; ;;; ;;; ;;;; ;;; ;;; ;;; ;;;;; ;;;; ;; ;;; +; ;;; ;;; ;;; ;;; ;;; ;;; ;;;;;; ;;; ;;; ;;;; +; +; +; +; (define-struct eq-contract (val) #:property prop:custom-write custom-write-property-proc