Fixed detection of printable contracts in dependent struct contracts.

svn: r17751
2010-01-19 09:27:51 +00:00 · 2010-01-19 09:27:51 +00:00 · 6a0469b680
commit 6a0469b680
parent ad7976079f
1 changed files with 1 additions and 1 deletions
--- a/collects/scheme/contract/private/ds.ss
+++ b/collects/scheme/contract/private/ds.ss
@ -466,7 +466,7 @@ it around flattened out.
    [else
     (let ([fields 
            (map (λ (field ctc) 
-                   (if (contract? ctc)
+                   (if (contract-struct? ctc)
                       (build-compound-type-name field ctc)
                       (build-compound-type-name field '...)))
                 fields