diff --git a/racket/collects/racket/struct.rkt b/racket/collects/racket/struct.rkt new file mode 100644 index 0000000000..765e6bca5e --- /dev/null +++ b/racket/collects/racket/struct.rkt @@ -0,0 +1,8 @@ +#lang racket/base +(require "private/custom-write.rkt" + racket/contract/base) +(provide (contract-out + [make-constructor-style-printer + (-> (-> any/c (or/c symbol? string?)) + (-> any/c sequence?) + (-> any/c output-port? (or/c #t #f 0 1) void?))])) diff --git a/racket/collects/unstable/custom-write.rkt b/racket/collects/unstable/custom-write.rkt index fb85bfb655..de68d943f9 100644 --- a/racket/collects/unstable/custom-write.rkt +++ b/racket/collects/unstable/custom-write.rkt @@ -1,13 +1,11 @@ #lang racket/base -(require racket/pretty +(require racket/struct + racket/pretty racket/match racket/sequence racket/contract/base) -(provide (contract-out - [make-constructor-style-printer - (-> (-> any/c (or/c symbol? string?)) - (-> any/c sequence?) - (-> any/c output-port? (or/c #t #f 0 1) void?))] +(provide make-constructor-style-printer + (contract-out [prop:auto-custom-write (struct-type-property/c 'constructor)]))