diff --git a/collects/mzlib/private/contract-arr-checks.ss b/collects/mzlib/private/contract-arr-checks.ss index 6f6e7bd48c..87be0df224 100644 --- a/collects/mzlib/private/contract-arr-checks.ss +++ b/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))) |# -) \ No newline at end of file +) diff --git a/collects/mzlib/private/contract-arr-obj-helpers.ss b/collects/mzlib/private/contract-arr-obj-helpers.ss index 0edb99e4ec..8abcc91b87 100644 --- a/collects/mzlib/private/contract-arr-obj-helpers.ss +++ b/collects/mzlib/private/contract-arr-obj-helpers.ss @@ -1118,4 +1118,4 @@ (cond [(zero? i) null] [else (cons (- n i) - (loop (- i 1)))])))))) \ No newline at end of file + (loop (- i 1)))])))))) diff --git a/collects/mzlib/private/contract-object.ss b/collects/mzlib/private/contract-object.ss index ef91b87161..e62ea6a4ec 100644 --- a/collects/mzlib/private/contract-object.ss +++ b/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))) \ No newline at end of file + (define mixin-contract (class? . ->d . subclass?/c)))