From 5d7774e7b280eeae451d5778b577778319fa4499 Mon Sep 17 00:00:00 2001 From: Carl Eastlund Date: Tue, 19 Jan 2010 05:59:47 +0000 Subject: [PATCH] Fixed test for procedure?, which now recognizes flat contracts, and typo for contract-projection. svn: r17738 --- collects/scheme/contract/private/ds.ss | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/scheme/contract/private/ds.ss b/collects/scheme/contract/private/ds.ss index e6a917a730..04ccd327bb 100644 --- a/collects/scheme/contract/private/ds.ss +++ b/collects/scheme/contract/private/ds.ss @@ -214,12 +214,12 @@ it around flattened out. (define (rewrite-fields parent contract/info ctc-x ...) (let* ([f-x (let* ([ctc-field (contract-get (contract/info-contract contract/info) selector-indicies)] - [ctc (if (procedure? ctc-field) - (ctc-field f-xs ...) - ctc-field)] + [ctc (if (contract-struct? ctc-field) + ctc-field + (ctc-field f-xs ...))] [ctc-field-val - (((contract-predicate ctc) + (((contract-projection ctc) (contract/info-blame contract/info)) ctc-x)]) (update-parent-links parent ctc-field-val)