From 950649441665bc420ef761cec28ea5ae36309aa8 Mon Sep 17 00:00:00 2001 From: Carl Eastlund Date: Tue, 19 Jan 2010 07:28:06 +0000 Subject: [PATCH] Fixed a shadowed name svn: r17743 --- collects/scheme/contract/private/ds.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/scheme/contract/private/ds.ss b/collects/scheme/contract/private/ds.ss index 04ccd327bb..e9a5fbb769 100644 --- a/collects/scheme/contract/private/ds.ss +++ b/collects/scheme/contract/private/ds.ss @@ -75,7 +75,7 @@ it around flattened out. [struct:-name struct:-name/val] [struct-maker struct-maker/val] [predicate predicate/val] - [contract-name (add-suffix "-contract")] + [the-contract (add-suffix "-contract")] [(selector-indicies ...) (nums-up-to field-count/val)] [(selector-indicies+1 ...) (map add1 (nums-up-to field-count/val))] [(ctc-x ...) (generate-temporaries (syntax (fields ...)))] @@ -312,7 +312,7 @@ it around flattened out. #:stronger stronger-lazy-contract?)) (define-values (contract-type contract-maker contract-predicate contract-get contract-set) - (make-struct-type 'contract-name + (make-struct-type 'the-contract #f (+ field-count 1) ;; extra field is for synthesized attribute ctcs ;; it is a list whose first element is