From ffa29cb40873f874699022b20352993c7f7d043b Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Wed, 7 Nov 2012 10:42:42 -0500 Subject: [PATCH] Lots of bad TAB eliminations. I started from tabs that are not on the beginning of lines, and in several places I did further cleanings. If you're worried about knowing who wrote some code, for example, if you get to this commit in "git blame", then note that you can use the "-w" flag in many git commands to ignore whitespaces. For example, to see per-line authors, use "git blame -w ". Another example: to see the (*much* smaller) non-whitespace changes in this (or any other) commit, use "git log -p -w -1 ". original commit: 672910f27b856549ad08d38832b6714edf226c8e --- collects/rackunit/scribblings/check.scrbl | 12 ++++++------ collects/schemeunit/gui.rkt | 2 +- collects/schemeunit/text-ui.rkt | 2 +- 3 files changed, 8 insertions(+), 8 deletions(-) diff --git a/collects/rackunit/scribblings/check.scrbl b/collects/rackunit/scribblings/check.scrbl index e7ebbbd..168afc6 100644 --- a/collects/rackunit/scribblings/check.scrbl +++ b/collects/rackunit/scribblings/check.scrbl @@ -184,7 +184,7 @@ The following check fails: @defproc[(check (op (-> any any any)) (v1 any) (v2 any) - (message string? "")) + (message string? "")) void?]{ The most generic check. Succeeds if @racket[op] applied to @@ -233,13 +233,13 @@ misspelling errors: @defproc*[([(make-check-name (name string?)) check-info?] [(make-check-params (params (listof any))) check-info?] - [(make-check-location (loc (list/c any (or/c number? #f) (or/c number? #f) + [(make-check-location (loc (list/c any (or/c number? #f) (or/c number? #f) (or/c number? #f) (or/c number? #f)))) check-info?] - [(make-check-expression (msg any)) check-info?] - [(make-check-message (msg string?)) check-info?] - [(make-check-actual (param any)) check-info?] - [(make-check-expected (param any)) check-info?])]{} + [(make-check-expression (msg any)) check-info?] + [(make-check-message (msg string?)) check-info?] + [(make-check-actual (param any)) check-info?] + [(make-check-expected (param any)) check-info?])]{} @defproc[(with-check-info* (info (listof check-info?)) (thunk (-> any))) any]{ diff --git a/collects/schemeunit/gui.rkt b/collects/schemeunit/gui.rkt index c0352c6..49c63ef 100644 --- a/collects/schemeunit/gui.rkt +++ b/collects/schemeunit/gui.rkt @@ -1,3 +1,3 @@ -#lang racket +#lang racket/base (require rackunit/gui) (provide (all-from-out rackunit/gui)) diff --git a/collects/schemeunit/text-ui.rkt b/collects/schemeunit/text-ui.rkt index d99ee6f..a5743e6 100644 --- a/collects/schemeunit/text-ui.rkt +++ b/collects/schemeunit/text-ui.rkt @@ -1,3 +1,3 @@ -#lang racket +#lang racket/base (require rackunit/text-ui) (provide (all-from-out rackunit/text-ui))