From e6b536edba68c336bb6580b979985325d430cc38 Mon Sep 17 00:00:00 2001 From: Jon Rafkind Date: Wed, 2 Sep 2009 16:59:26 +0000 Subject: [PATCH] remove tabs svn: r15859 --- collects/scribblings/reference/booleans.scrbl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/scribblings/reference/booleans.scrbl b/collects/scribblings/reference/booleans.scrbl index e86690efdc..740b00b2f2 100644 --- a/collects/scribblings/reference/booleans.scrbl +++ b/collects/scribblings/reference/booleans.scrbl @@ -188,11 +188,11 @@ values. For opaque structure types, @scheme[equal?] is the same as @examples[ (define (farm=? farm1 farm2 recursive-equal?) (and (= (farm-apples farm1) - (farm-apples farm2)) + (farm-apples farm2)) (= (farm-oranges farm1) - (farm-oranges farm2)) + (farm-oranges farm2)) (= (farm-sheep farm1) - (farm-sheep farm2)))) + (farm-sheep farm2)))) (define (farm-hash-1 farm recursive-equal-hash) (+ (* 10000 (farm-apples farm)) (* 100 (farm-oranges farm)) @@ -204,8 +204,8 @@ values. For opaque structure types, @scheme[equal?] is the same as (* 1 (farm-oranges farm)))) (define-struct farm (apples oranges sheep) - #:property prop:equal+hash - (list farm=? farm-hash-1 farm-hash-2)) + #:property prop:equal+hash + (list farm=? farm-hash-1 farm-hash-2)) (define east (make-farm 5 2 20)) (define west (make-farm 18 6 14)) (define north (make-farm 5 20 20))