set svn:eol-style

svn: r7358

collects/mzlib/private/contract-arr-checks.ss

@@ -195,4 +195,4 @@
        (not (procedure-accepts-and-more? (case-lambda [(x y . z) 1] [(x) 1]) 0)))
   
   |#
-)
+)

collects/mzlib/private/contract-arr-obj-helpers.ss

@@ -1118,4 +1118,4 @@
               (cond
                 [(zero? i) null]
                 [else (cons (- n i)
-                            (loop (- i 1)))]))))))
+                            (loop (- i 1)))]))))))

collects/mzlib/private/contract-object.ss

@@ -426,4 +426,4 @@
          [else `(is-a?/c unknown<%>)])
        (lambda (x) (is-a? x <%>)))))
   
-  (define mixin-contract (class? . ->d . subclass?/c)))
+  (define mixin-contract (class? . ->d . subclass?/c)))